Составить программу расчёта суммы - Free Pascal

Формулировка задачи:

Нужна помощь в решении следующих задач. Заранее спасибо 1. Составить программу расчёта суммы 1+1/1*2+1/1*2*3+1/1*2*3*4+...+1/1*2*...*n, используя функцию расчёта факториала натурального числа:

Function Fact(n:integer):integer;
Var
  j,p:integer;  
Begin
  p:=1;
  For j:=1 to n do p:=p*j;
  Fact:=p;
End;

Решение задачи: «Составить программу расчёта суммы»

Листинг программы

If n>0 then sum:=1/Fact(n)+sum(n-1) else sum:=0;

Объяснение кода листинга программы

Проверка условия n>0.
Если условие истинно, то выполняется первый блок кода, иначе второй блок кода.
В первом блоке кода рассчитывается значение sum по формуле 1/Fact(n)+sum(n-1).
Во втором блоке кода значение sum устанавливается равным 0.
Выход из процедуры.