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

var n: integer;function F(n:integer): longint;beginif n<=2 thenF:=1elseF:=F(n-1)+F(n-2)end;beginreadln(n);writeln(F(n));end.