Числа Фибоначчи (fn) определяются формулами: f0=f1=1, fn=fn-1+fn-2 при n=2,3, ... Разработать схему алгоритма для вычисления числа Фибоначчи. Определить f10, f25, f40.

Ето прога на Pascal! (Будут вопросы пиши)

program fibonachi;

var f:array [0 ... 1000] of longint;

a, i, i2, i3:integer;

begin

writeln ('Vvedit nomer potribnogo chisla') ;

readln (a) ;

f[1]:=1;

f[0]:=1;

if a<=1 then

writeln (f[a]) ;

if a=2 then writeln (3) ;

if a>2 then begin

for i:=2 to a do

begin

i2:=i-1; i3:=i-2;

f[i]: = f[i2]+f[i3];

end;

writeln (f[i]) ; end;

readln

end.

f10=89

f25=121393

f40 = 165580141