Найти количество отданных купюр - QBasic

Формулировка задачи:

Покупатель должен заплатить в кассу 5руб. У него имеются купюры по 1, 5, 10, 50, 100, 500, 1000 и 10000 руб. Сколько купюр разного достоинства отдаст покупатель, если он начинает платить с самых крупных купюр?

Решение задачи: «Найти количество отданных купюр»

Листинг программы

CLS
DATA 10000, 1000, 500, 100, 50, 10, 5, 1
INPUT "Stoimost pokupki = ", ts
FOR i = 1 TO 8
    READ x
    'skolko takih kupur nado
    kol = ts \ x
    IF kol > 0 THEN PRINT USING "#####&"; x; " rub. - "; kol
    'ostalos zaplatit
    ts = ts MOD x
NEXT i

Объяснение кода листинга программы

CLS — команда для очистки экрана
DATA 10000, 1000, 500, 100, 50, 10, 5, 1 - команда для задания значений купюр
INPUT Stoimost pokupki =, ts — команда для ввода стоимости покупки
FOR i = 1 TO 8 - цикл для обработки каждой купюры
READ x — команда для чтения значения переменной x
'skolko takih kupur nado
kol = ts \ x — команда для определения количества купюр данного номинала
IF kol > 0 THEN PRINT USING #####&; x; rub. -; kol — команда для вывода информации о количестве купюр и их номинале
'ostalos zaplatit
ts = ts MOD x — команда для обновления значения стоимости покупки с учетом оплаты данным номиналом
NEXT i — команда для перехода к следующей итерации цикла