program fibonachi05;
uses
  SysUtils,Windows;
{$APPTYPE CONSOLE}

var f1,f2,f3:array[1..10000] of byte;
n1,n2,n3:integer;

os, n,i,j:integer;
time:int64;
begin
readln(n);
time:=GetTickCount;
n1:=1;f1[1]:=1;
n2:=1;f2[1]:=1;
n3:=1;f3[1]:=1;

for i:=2 to n do
begin
os:=0;
for j:=1 to n2 do
begin
f3[j]:=(f1[j]+f2[j]+os) mod 10;
os:=(f1[j]+f2[j]+os) div 10;
end;
if os>0 then begin n3:=n3+1;f3[n3]:=os;end;

n1:=n2;
for j:=1 to n1 do f1[j]:=f2[j];
n2:=n3;
for j:=1 to n2 do f2[j]:=f3[j];


end;
for i:=n2 downto 1 do
write(f2[i]);  writeln;

time:=GetTickCount-time;
writeln((time/1000):0:5);
readln;
end.