Question

Срочно!!! Даю максимальный балл!!

Answer 1

var s,n,i,k,l: integer;
begin
writeln('введите n');
readln(n);
for i:=1 to n do
begin
l:=1;
for k:=1 to i do
begin
l:=l*k;
end;
s:=s+l;
end;
writeln(s);
end.