// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var n:=ReadInteger('n=');
var s:=BigInteger(0);
var p:=Biginteger(1);
for var i:=1 to n do begin p*=i; s+=p end;
Print(s)
end.
Тестовые решения
n= 5
153
n= 10
4037913
n= 50
31035053229546199656252032972759319953190362094566672920420940313
Объяснение: Вроде бы так, точно не знаю
