此数列为斐波那契数列
var
n,i:integer;
a:array [1..100] of longint;
begin
read(n);
a[1]:=1;a[2]:=1;
for i:=3 to n do a[i]:=a[i-1]+a[i-2];
writeln(a[n]);
end.