Составить программу для нахожденияn -го числа фибоначчи. ряд фибоначчи заключается в том, что каждое число ,

Var n: integer;
function F(n:integer): longint;
begin
if n<=2 then
F:=1
else
F:=F(n-1)+F(n-2)
end;
begin
readln(n);
writeln(F(n));
end.