На день вашего рождения тётя положила на ваш счёт 1000 р.. Каждый год к вкладу добавляется s процентов годовых. Составить программу, которая вычисляет через сколько лет будет r рублей? Какой размер вклада будет через 16 лет- QBasic(Бейсик)

CLS
INPUT "vvedite procentnuju stavku"; s
INPUT "vvedite r"; r
a = 1000
IF r < a THEN r = a
q = a * (1 + s / 100) ^ 16
DO UNTIL a >= r
    i = i + 1
    a = a * (1 + s / 100)
LOOP
PRINT "na schetu budet 'r' cherez"; i
PRINT "cherez 16 let na schetu budet"; q