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

INPUT "Robotov"; a
INPUT "Let"; n
FOR i = 2 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"

INPUT k
INPUT n
DIM r(1 TO 3)
r(1) = k
r(2) = 0
r(3) = 0
s = k
FOR i = 1 TO n
 x = INT(s / 3)
 p = s MOD 3
 IF p = 0 THEN
  y = 0
 ELSE
 IF p = 1 THEN
  x = x - 3
  y = 2
 ELSE
  x = x - 1
  y = 1
 END IF
 END IF
 r(3) = r(2)
 r(2) = r(1)
 r(1) = 5 * x + 9 * y
 s = r(1) + r(2) + r(3)
NEXT i
PRINT s

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"