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

1) Решение с помощью рекурсии.Программа проста в понимании, но неэффективна при больших значенияхfunction f(i: integer): longint;begin  if i < 2 then    f := 1  else    f := f(i - 1) + f(i - 2);end;begin  writeln('f(10) = ', f(10));  writeln('f(25) = ', f(25));  writeln('f(40) = ', f(40));end.2) Решение с помощью динамического программирования. Вычисляет намного быстрее, чем решение с рекурсией.var  i: integer;  f: array[0..40] of longint;begin  f[0] := 1;  f[1] := 1;  for i := 2 to 40 do    f[i] := f[i - 1] + f[i - 2];  writeln('f(10) = ', f[10]);  writeln('f(25) = ', f[25]);  writeln('f(40) = ', f[40]);end.3) Решение с помощью моделирования. Использует меньше памяти.function f(i: integer): longint;var  a, b: longint;  j: integer;begin  if i < 2 then    f := 1  else  begin    a := 0;    b := 1;    for j := 0 to i do    begin      b := a + b;      a := b - a;    end;    f := a;  end;end;begin  writeln('f(10) = ', f(10));  writeln('f(25) = ', f(25));  writeln('f(40) = ', f(40));end.