Составить программы итерационного и рекурсивного вычислений функции

Program FSchet_rec;
function schet(n: integer): integer := if n=1 then 1 else
  If n mod 2 = 0 Then  n + schet(n-1)
  else   2*schet(n-2);
var n: integer;
begin
  Writeln('Введите n');
  Read(n);
  Writeln('Результат работы функции');
  Println (schet(n));
end.

function f(n: integer): integer;
begin
  if n=1 then
    begin
      $'f({n}) = {1}'.Println;
      Result := 1;
    end
  else
    if n.IsEven then
      begin
        $'f({n}) = {n} + f({n-1}) = ?'.Println;
        Result := n + f(n-1);
        $'f({n}) = {n} + f({n-1}) = {Result}'.Println;
      end
    else
      begin
        $'f({n}) = 2*f({n-2}) = ?'.Println;
        Result := 2*f(n-2);
        $'f({n}) = 2*f({n-2}) = {Result}'.Println;
      end;
end;
 
begin
  var n := ReadLnInteger('Введите n');
  var r := f(n);
  $'Результат работы функции: {r}'.Println;
end.

##
var f:=(1,1,1);
for var n := 2 to ReadlnInteger('n =') do 
 f := n.isOdd ? (f.item2, f.item3, 2*f.item2) : (f.item2,f.item3,n+f.item3);
f.item3.Print;

function f(n: integer): integer;
Begin
  if n=1 then 1;
   if (n mod 2)=0 then (n + F(n-1))
     else (F(n-2) + F(n-2));
 End;
 begin
  var n := integer;
  Writeln('Введите n');
  var r := f(n);
  Writeln('Результат работы функции:',' ',r);
end.

function f(n: integer): integer;
Begin
  if n=1 then f:=1
  else if n mod 2=0 then  f:=(n + F(n-1))
  else if odd(n)and(n>1)then f:=2*F(n-2);
 End;