Сумма факториалов

[Sour]

Помогите с y=1! + 2! + ... + n!. n вводится с клавиатуры

[Трофимов Александр]

Если без описания функции то примерно так:
Program Ex1;
var
Fact,y:longint;
i,j,n:byte;
begin
write('Введите n: ');
readln (n);
y:=0;
for i:=1 to n do
begin
Fact:=i;
for j:=i-1 downto 2 do
Fact:=Fact*j;
y:=y+Fact;
end;
end.

Извини проверить не на чем.

[Carbon]

y=((...((n+1)*(n-1)+1)...)*3+1)*2+1

var res:longint;
i,n:integer;
begin
Readln(n);
res:=1;
for i:=n downto 2 do
res:=res*i+1
end.