[csoft]

Здравствуйте! У меня возникла небольшая проблема: не могу дописать программу по рекурсии.
Вот условие задачи:
-------------------------
Задано натуральное N. Разработать программу для подсчета заданной сумы (использовать рекурсивные процедуры или функции):

------------------------

Намучился с этой прогой.. Сделал только функцию для подсчета (k+1)! в Ak, и то не знаю правильно ли:

Код:

Function zn(k:integer):double;
begin
if k=0 then result:=1
else
result:=zn(k)*(k+1);
end;

Пожалуйста, помогите написать программу! Скоро надо сдавать лабу..