ой мама родите меня обратно
дубль три) Uses crt;

var i,n:integer;
fact,sum:extended;

Begin ClrScr;
Writeln('vvedite chislo');
Readln(n);
sum:=0;
fact:=1;
for i:=1 to n do begin
fact:=fact*i;
sum:=sum+fact;
end;

writeln(sum);
readln;
end.