Сообщество роботов. Сколько роботов будет через N лет - QBasic

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

Надо решить эту задачу: Сообщество роботов живет по следующим законам: - один раз в начале года они объединяются в группы по 3 или 5 роботов; - за год группа из 3 роботов собирает 5 новых, а группа из 5 роботов собирает 9 новых; - роботы объединяются так, чтобы собрать за год наибольшее количество; - каждый робот живет 3 года после сборки. Известно начальное количество роботов K и все они только что собраны. Сколько роботов будет через N лет?

Решение задачи: «Сообщество роботов. Сколько роботов будет через N лет»

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

                            INPUT "Robotov"; a
INPUT "Let"; n
FOR i = 1 TO n
    d = a + b + c
    IF d < 3 THEN d = 0
    IF d = 4 OR d = 7 THEN d = d - 1
    m = d MOD 5
    c = b
    b = a
    a = d * 2 - d \ 5 - m MOD 3 - m \ 3
NEXT i
PRINT "Cherez"; n; "let budet"; a + b + c; "robotov"
                        