Переполнение стека

[Nomad_34]

Помогите, пожалуйста, разобраться.

Есть задача:
Алгоритм вычисления функции F(n) задан следующими соотношениями:
F(n) = n * n + 3 * n + 9, при n <= 15
F(n) = F(n–1) + n – 2, при n > 15, кратных 3
F(n) = F(n–2) + n + 2, при n > 15, не кратных 3
Определите количество натуральных значений n из отрезка [1; 1000], для которых все цифры значения F(n) чётные.

Вот код:

Var
  n,x,k,s:integer;
  Function f(n:integer):longint;
         begin
            If (n<=15) then  F:=n*n+3*n+9 else
                             If (n mod 3=0)Then  f:=f(n-1)+n-2 else
                                                 f:=f(n-2)+n+2;
         end;
  begin
  s:=0;
  for n:=1 to 1000 do
            begin
            x:=f(n);
            k:=0;
            while x>0 do begin
                            If (x mod 2<>0) then k:=k+1;
                            x:=x div 10;
                         end;
            If (k=0) then s:=s+1;
            end;
  write(s);
  end.

Выдаёт:
»*Непредвиденное исключение EStackOverflow. Stack overflow. Программа завершена (Program1.pas, строка 6)

Заранее спасибо.

[BDA]

Или увеличить размер стека (https://ideone.com/5wXbxI нормально проработал, с общим ограничением памяти в 256 МБ) или добавить мемоизацию (честную или вообще переписать функцию, раз известно, что будут рассчитываться все N от 1 до 1000).