type nu=array[0..200] of byte;
var a,b,c:nu;
rr,r,nr,n,i:word;
f,g:text;

function max(X,Y:integer):integer;
begin
if x>y then max:=x
else max:=y;
end;

begin
assign(f,'nunta.in');reset(f);
assign(g,'nunta.out');rewrite(g);
read(f,n);
a[0]:=1;
b[0]:=1;
a[1]:=1;
b[1]:=2;
nr:=2;
while nr<>n do
begin
c[0]:=max(a[0],b[0]);
for i:=1 to c[0] do
begin
rr:=(a[i]+b[i]+r) div 100;
c[i]:=(a[i]+b[i]+r) mod 100;
r:=rr;
end;
if r>0 then
begin
inc(c[0]);
c[c[0]]:=r;
end;
for i:=1 to c[0] do
begin
a[i]:=b[i];
b[i]:=c[i];
end;
inc(nr);
end;
for i:=1 to c[0] do write(g,c[i]);
close(f);
close(g);
end.