type numar=array[0..1000] of longint;
const baza=100000;
var a:numar;
i:byte;
n,rr,r:longint;
f:text;
procedure afisare(a:numar);
var f:text;
    i:integer;
    p:longint;
begin
assign(f,'nunta.out');rewrite(f);
write(f,a[n]);
for i:=a[0]-2 downto 1 do begin
    p:=baza div 10;
    while (p>a[i]) and (p>1) do begin
          write(f,0);
          p:=p div 10;
    end;
    write(f,a[i]);
end;
close(f);
end;
begin
assign(f,'nunta.in');reset(f);
readln(f,n);
close(f);
a[0]:=1;
a[1]:=1;
for i:=2 to n+1 do begin
rr:=(a[i-1]+a[i-2]+r) div baza;
a[i]:=(a[i-1]+a[i-2]+r) mod baza;
r:=rr;
end;
afisare(a);
end.