Напишите рекурсивную и нерекурсивную функции, вычисляющие n-e число Фибоначчи

function fib(i:integer):integer;
begin
  if i>2 then fib:=fib(i-1)+fib(i-2) else fib:=1;
end;

function fib(i:integer):integer;
var j,f1,f2,f:integer;
begin
  f1:=1; f2:=1;
  if i<=2 then fib:=1 else begin
    for j:=3 to i do begin
      f:=f1+f2;
      f2:=f1; f1:=f;
    end;
  fib:=f;
  end;
end;

function fib(i: longword): longword;
var g, f: longword;
begin
  g := 1;
  f := 1;
  for i := 3 to i do
    begin
      f := f + g;
      g := f - g
    end;
  fib := f
end;

function fib(i: longword): longword;
var g: longword;
begin
  g := 1;
  Result := 1;
  for i := 3 to i do
    begin
      Result := Result + g;
      g := Result - g
    end
end;

function fib(i: longword): longword;
var g: longword;
    f: longword absolute fib;
begin
  g := 1;
  f := 1;
  for i := 3 to i do
    begin
      f := f + g;
      g := f - g
    end
end;

function fib(i: longword): longword;
const ln_fi = ln((1 + sqrt(5)) / 2);
      sqrt5 = sqrt(5);
begin
  fib := round(exp(i * ln_fi) / sqrt5)
end;