Составить программу вычисления суммы 1! +2! ++n! (n< 15)

ответа нет, значит будет Паскаль...

var
  n,i,p,s:longint;
begin
  Write('Введите значение n<15 -> ');
  Readln(n);
  p:=1; s:=0;
  for i:=1 to n do
  begin p:=p*i; s:=s+p end;
  Writeln('Сумма факториалов равна ',s)
end.

Тестовое решение:
Введите значение n<15 -> 5
Сумма факториалов равна 153