var f:text;
    i,N:integer;
    c,a,b:string;
Procedure adun(var c:string;a,b:string);
var i,t:byte;
    x:integer;
begin
     for i:=1 to length(a)-length(b) do
         b:=b+'0';
     t:=0;
     c:='';
     for i:=length(a) downto 1 do
         begin
              x:=(ord(a[i])-48)+(ord(b[i])-48)+t;
              t:=x Div 10;
              c:=Chr(x Mod 10+48)+c;
         end;
     if t<>0 then c:=Chr(t+48)+c;
end;
Begin
     assign(f,'nunta.in'); reset(f);
     Readln(f,N);
     close(f);
     a:='1'; b:='1';
     for i:=2 to N do
     begin
          adun(c,b,a);
          a:=b;
          b:=c;
     end;
     assign(f,'nunta.out'); rewrite(f);
     writeln(f,c);
     close(f);
End.