Задача на рекурсию

var
  n: integer; 
  f: array [-100001..20] of integer;
 
begin
  for n := -100001 to 20 do
  begin
    if n < -100000 then
      f[n] := 1
    else
    begin
      if n > 10 then
        f[n] := f[n - 1] + 3 * f[n - 3] + 2
      else
        f[n] := -1 * f[n - 1];
    end;
  end;
  write(f[20]);  
end.

//Функция F
function F(n: integer): integer;
begin
  if n < -100000 then 
    F := 1
  else 
    begin
    if n > 10 then
      F := F(n - 1) + 3 * F(n - 3) + 2
    else  
      F := -1*F(n - 1);    
  end;
end; 
 
 
//Основная часть программы, где запускаем функцию.
begin
  WriteLn(F(20));
end.

function f(n:integer): integer;
begin
  if n < -100000 then Result := 1 
  else if n < 11 then Result := ord(odd(n))*2-1
  else Result := f(n-1) + 3*f(n-3) + 2;
end;
 
begin
  Writeln( f(20) )
end.

  else if n < 11 then begin if odd(n) then f := 1 else f := -1 end

then f := 1 else f := -1 end

//Алгоритм вычисления значения функции F(n), где n – целое число, задан следующими соотношениями:
//F(n) = 1, при n < -100000,
//F(n) = F(n–1) + 3•F(n–3) + 2, при n > 10,
//F(n) = -F(n–1) для остальных случаев.
//Чему равно значение F(20)?
//      -100000              10  11
// ---------+-----------------+---+-----------
// f=1         f=-1 или f=1        f := f(n - 1) + 3 * f(n - 3) + 2
 
function f(n: integer): integer;
begin
  if n < -100000 then f := 1 
  else 
    if n > 10 then f := f(n - 1) + 3 * f(n - 3) + 2
    else
    begin
      //  Odd(i) Возвращает True, если i нечетно, и False в противном случае
      if odd(n) then  f := 1 
      else   f := -1
    end
end;
 
begin
  Writeln(f(20))
end.