Каждый робот живет 3 года после сборки. Сколько роботов будет через N лет?

Uses Crt;
Var i,k,n,s,s0,s1,s2,s3,x:integer;
BEGIN
ClrScr;
Write('Введите кол-во роботов: ');
Readln(k);
Write('Кол-во лет = ');
Readln(n);
s0:=k;
s1:=0;
s2:=0;
s3:=0;
for i:=0 to n do
begin
s:=s0+s1+s2+s3;
Case s mod 5 of
0: x:=(s div 5)*9;
1: if s=1
then x:=0
else x:=(((s-5) div 5)*9)+10;
2: if s=2
then x:=0
else if s=7
then x:=10
else x:=(((s-10) div 5)*9)+20;
3 : x:=((s div 5)*9)+5;
4 : if s=4
then x:=5
else x:=(((s-5) div 5)*9)+15;
end;
s3:=s2;
s2:=s1;
s1:=s0;
s0:=x;
end;
Writeln('Через ',n, ' лет будет ',s,' роботов');
END.

  var a:array[1..100] of int64;
    t,n,k,m,j:int64;
    i:integer;
begin
assign(input, 'input.txt'); reset(input); 
assign(output, 'output.txt'); rewrite(output);
read(k,n);
a[1]:=k;
for i:=2 to n do
  begin
   j:=(a[i-1] div 5);  {групп по пять роботов} 
    repeat
    t:=j*9 + ((a[i-1]-(j*5)) div 3)*5;  {ищет максимальное сочетание групп по пять и по 3 робота}
    if  t>m then m:=t;
    dec(j);
    until j=-1;
   if i>3 then
    begin
    if i=4 then a[i]:=(a[i-1]-a[i-3])+m
     else
       a[i]:=(a[i-1]-(a[i-3]-a[i-4]))+m {созданные - умирающие роботы}
    end
     else a[i]:=a[i-1]+m; {первые два шага}
  end;
write(a[n]);
end.

  case p mod 3 of
   0: g5 := 0;
   1: g5 := 2;
   2: g5 := 1
  end;
  g3 := (p - 5 * g5) div 3;

  g5 := (5 * (p mod 3)) mod 3;
  g3 := (p - 5 * g5) div 3;

  case p mod 5 of
   0: g3 := 0;
   1: g3 := 2;
   2: g3 := 4;
   3: g3 := 1;
   4: g3 := 3
  end;
  g5 := (p - 3 * g3) div 5;