Задача. Программа вычисления значения F(n)

program algorithm;
var Fn, Fnm1, Fnm2, n, i: integer;
begin
    writeln('Введите аргумент функции F(n)');
    read(n);
    if n<=2 then Fn:=1
    else
        begin
            Fnm2:=1;
            Fnm1:=1;
            for i:=3 to n do
                begin
                    Fn:=Fnm1+3*Fnm2;
                    Fnm2:=Fnm1;
                    Fnm1:=Fn
                end;
        end;
    writeln('F(', n, ')=', Fn)
end.

program algorithm;
var F, F1, F2, n, i: integer;
begin
    writeln('Введите аргумент функции F(n)');
    read(n);
    F1:=1; F2:=1; F:=F2;
    for i:=3 to n do
        begin
            F:=F2+3*F1;
            F1:=F2;
            F2:=F
        end;
    writeln('F(', n, ')=', F)
end.

function f(n: Integer): Integer;
begin
  if n<3 then f:=1
  else f:=f(n-1)+3*f(n-2);
end;
var n: Integer;
begin
  Write('n: '); ReadLn(n);
  WriteLn(f(n));
end.

function f(n: Integer): Integer;
var f1, f2: Integer;
begin
  if n<3 then f:=1
  else begin
    f1:=f(n-1);  { вычисление значения F для n-1 }
    f2:=f(n-2);  { вычисление значения F для n-2 }
    f:=f1+3*f2;  { вычисление значения F для n }
  end;
end;

function f(n: Integer): Integer;
begin
  if n<3 then f:=1
  else f:=f(n-1)+3*f(n-2);
end;
var n: Integer;
begin
  for n:=1 to 9 do Write(' ',n:2); WriteLn;
  for n:=1 to 9 do Write(' ',f(n):2); WriteLn;
end.

  else f:=f(n-1)+3*f(n-2);

  else f:=f(n-1)+3*(n-2);