Задача на Паскаль

[WitaliG]

Здравствуйте!
Подскажите, пожалуйста, как подсчитать сумму.

Вычислить с помощью цикла с параметром: Y = 1! + 2! + 3! +…+ N! (N>1)

var
    x,fact,sum :real;
    y,n,i,m : integer;
begin 
    readln(n);
    fact :=1;
    for i :=1 to n do
    fact :=fact*i;
    begin 
    readln(m);
    sum :=0; 
    for y :=1 to m do
    sum :=sum + y; end;
    writeln('Факториал = ',fact);
    writeln('Сумма = ',y); readln  end.

С уважением Виталий.

[Mad_Cat]

F:=1;
s:=0;
for i:=1 to n do
begin
f:=f*i;
s:=s+f;
end;

WitaliG, на здоровье

[WitaliG]

Большое спасибо Mad_Cat.