var
a   :array [1..45] of integer;
i,n: integer;
 begin

read (n);
begin
a[1]:=1;
a[2]:=1;
for i:=3 to n  do
a[i]:=a[i-1]+a[i-2];
writeln (a[n]);
end;  end.