Нужна помощь в решении задачи по Паскалю с использованием функции и рекурсии

[vlad0off]

Нужна помощь в решении задачи по Паскалю с использованием функции и рекурсии

Условие указано на скриншоте ниже:

 

[Vladimir_S]

Нужна помощь в решении задачи по Паскалю с использованием функции и рекурсии

Нужна, так нужна, что уж тут поделаешь... Вот:

Var
 n:Word;

Function An(k:Word):Word;
begin
 if (k=1) or (k=2) then An:=1 else
 if (k mod 2)=0 then An:=(k div 2) else
 An:=An(k div 2)+An((k div 2)+1);
end;

Begin
 Write('n= ');
 Readln(n);
 Write(An(n));
 Readln
End.