Вычислить первые 100 чисел Фибоначчи

const N=13000;
type
  mas=array[0..N] of byte;
var
  f1,f2,fs,f3:mas;
  j,l1,l2,l3:integer;
  i,s:longint;
function max(t1,t2:integer):integer;
begin
  if t1>t2 then max:=t1 else max:=t2;
end;
 
procedure sum(a:mas;l1:integer;b:mas;l2:integer;var k:mas;var l3:integer);
var
  j:integer;
begin
  for j:=0 to l3 do k[j]:=0;
  for j:=0 to max(l1,l2)+1 do begin
    k[j]:=k[j]+b[j]+a[j];
    if k[j]>99 then begin
      k[j+1]:=k[j+1]+1;
      k[j]:=k[j]-100;
   end;
  end;
  l3:=n;
  while (k[l3]=0) and (l3>=0) do dec(l3);
end;
 
procedure print(k:mas);
var
  j,i:integer;
begin
  j:=n;
  while (k[j]=0) and (j>=0) do dec(j);
  for i:=j downto 0 do if (i<j) and (k[i]<10) then write('0',k[i])
  else write(k[i]);
  writeln;
end;
begin
  repeat
    write('S=');
    readln(s);
  until (s>0) and (s<=60000);
  f1[0]:=1;l1:=1;
  f2[0]:=1;l1:=1;
  write(1:4,'  ');print(f1);
  for i:=2 to S do begin
   sum(f1,l1,f2,l2,fs,l3);
     for j:=0 to l3 do begin
      f1[j]:=f2[j];
      f2[j]:=fs[j];
    end;
    l1:=l2;l2:=l3;
    write(i:4,'  ');print(f1);
  end;
end.