var
n,a,b,c,i:longint;
begin
readln(n);
a:=0; b:=1; i:=1;
while i<n do
begin
c:=a+b;
a:=b;
b:=c;
inc(i);
end;
writeln(c);
end.
输入：10

输出：55