Ошибка времени выполнения: StackOverflowException: Программа завершена из-за переполнения программного стека

//Функция F
function F(n: integer): integer;
begin
  if n < 3 then 
    F := n + 1;  
  if (n >= 3) and (n mod 2 = 0) then
    F := n + 2 * F(n + 2);
  if (n >= 3) and (n mod 2 <> 0) then
    F := n + 2 * F(n + 2);  
  
end;
 
var
  cikl, kolvo: integer;
//Основная часть программы, где запускаем функцию.
begin
  kolvo := 0;
  for cikl := 1 to 1000 do
  begin
    if (F(cikl) >= 100) and (F(cikl) <= 999) then
      kolvo := kolvo + 1; 
  end;
  
  WriteLn(cikl);
end.

function F(n: integer): integer;
begin
  if n < 3 then  F := n + 1
  else if odd(n) then F := F(n-2) + n-2
end;
 
begin
  var kolvo := 0;
  for var n := -2000 to 2000 do  
    if (abs(f(n)) >= 100) and (abs(f(n)) < 1000) then inc(kolvo);
  Writeln(kolvo);
end.

//Функция F
function F(n: integer): integer;
begin
  if n < 3 then 
    F := n + 1
    else
  if ((n mod 2) = 0) then
    F := n + 2 * F(n + 2)
  else
         F := F(n - 2) + n - 2;   
end;
 
var
  cikl, kolvo: integer;
//Основная часть программы, где запускаем функцию.
begin
  kolvo := 0;
  for cikl := 1 to 100 do
  begin
    if (F(cikl) >= 100) and (F(cikl) <= 999) then
      kolvo := kolvo + 1; 
  end;
  
  WriteLn(cikl);
end.

for var n := -2000 to 2000 do