Функция F(n) для целых неотрицательных n определена так:
F(0)=0, F(1)=1, F(2n)=F(n), F(2n + 1)=(F(n) + F(n+1)
Для данного N нужно определить и напечатать F(N). N столь велико, что массив из N чисел недопустим...
Вот и все...

Рекурсия

Код

function F(n:longint):longint; begin  if n=0 then F:=0 else  if n=1 then F:=1 else  if odd(n) then F:=F(n div 2)+F(n div 2+1) else  F:=F(n div 2); end;

И еще все-таки зависит от N.

И я, например завел бы массив, в котором было бы первых тридцать пять тысяч значений. Это намного сокращает рекурсию.