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

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

os, n,i,j:integer;
//time:int64;
begin
//time:=GetTickCount;
readln(n);
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;

f1:=f2;n1:=n2;
f2:=f3;n2:=n3;
end;
for i:=n2 downto 1 do
write(f2[i]);
//time:=GetTickCount-time;
//writeln((time/1000):0:5);
readln;
end.