Sursa asta ti-o fac pentru ca sunt dator...dar eu nu mai codez pascal ...de mult timp ... n-am cum s-o testez...sper sa mearga. Scuze!
PROGRAM ecpresie;
var i,p,s,n:integer;
begin
readln(n);
s:=0;
p:=1;
for i:=1 to n do
begin
p:=p*i;
s:=s+p;
end;
write('Rezultatul este ',s);
end.