Ответа нет, значит будет Паскаль...
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