У человека есть R рублей и К копеек. Он отдает М копеек и всего его копейки становятся рублями, а рубли — копейками. Когда вот так вот отдавать М копеек — можно денег получить больше, чем у тебя было сначала. Программа считает на который раз человек получит макс прибыль- QBasic(Бейсик)

Например:
М=29
R=46
K=47
Ответ: 3

Но вот программа у меня загружает процессор на 100% если я вписываю:
М=1
R=99
K=0

CLS
n = 1000
DIM a(n)
INPUT "vvedite r"; r
INPUT "vvedite k"; k
INPUT "vvedite m"; m
r = r * 100
DO
    i = i + 1
    s = r + k - m
    r1 = (s MOD 100)
    k = (s - r1) / 100
    r = r1 * 100
    w = r + k
    IF w > s THEN a(i) = w
LOOP UNTIL i = n
c = 0
FOR i = 1 TO n
    IF a(i) > c THEN c = a(i): z = i
NEXT
PRINT "otvet ="; z
END