Паскваль вычислите n чисел фибоначи: f1=1; f2=1; ; fn=fn-1+fn-2, например: f3=f2+f1=1+1=2,f4=2+1=3 b т.д.

var n:longint;

function f(n:integer):longint;

begin

if (n=1)or(n=2) then f:=1 else

f:=f(n-1)+f(n-2);

end;

begin

write("Vvedite poziciu chisla: ");

read(n);

write("chislo ryada na dannoy pozicii ravno ",f(n));

end.