Числа Фибоначчи (fn) определяются формулами: f0=f1=1…

Ето прога на 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