var n:integer;
function fblq(n:integer):integer;
var a,b,c,i:integer;
begin
a:=1;
b:=1;
if n>2
then
for i:=3 to n do
begin
c:=a+b;
a:=b;
b:=c;
end
else c:=1;
fblq:=c;
end;
begin
readln(n);
writeln(fblq(n));
end.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024