Ето прога на 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 a<=1 thenwriteln(f[a]);if a=2 then writeln(3);if a>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