Ето прога на Pascal!(Будут вопросы пиши)  program fibonachi;var f:array [0..1000] of longint;a,i,i2,i3:integer;beginwriteln (Vvedit nomer potribnogo chisla);readln (a);f[1]:=1;f[0]:=1;if alt;=1 thenwriteln(f[a]);if a=2 then writeln(3);if agt;2 then beginfor i:=2 to a dobegini2:=i-1; i3:=i-2;f[i]:= f[i2]+f[i3];end;writeln (f[i]); end;readlnend.  f10=89f25=121393f40 =165580141