решить с использованием рекурсивной подпрограммы. помогите пожалуйста ваще ни че не понял

[st1m]

Составить программу вычисления суммы 1!+2!+3!+...+n! (n<20). Примечание.Тип результата значения функции - - LongInt.

[Last]

как говорится: чтобы понять рекурсию, надо понять рекурсию=)

[maladoy]

function FacRec(n: Word): LongInt;
begin
  if n > 1 then
    FacRec := n * FacRec(n - 1)
  else
    FacRec := 1;
end;