program fibonachi;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a,b,c:array[0..100] of integer;
  i,r,j:integer;


begin
a[0]:=1;a[1]:=1;
b[0]:=1; b[1]:=1;
for i:=1 to 100 do begin
r:=0;  c[0]:=b[0];
for j:=1 to c[0] do begin
c[j]:=(r+a[j]+b[j]) mod 10;
r:=(r+a[j]+b[j]) div 10;
end;
if r>0 then begin c[0]:=c[0]+1; c[c[0]]:=r;   end;
a:=b;
b:=c;
for j:=b[0] downto 1 do
write(b[j]);
writeln;
end;

readln;

  { TODO -oUser -cConsole Main : Insert code here }
end.