var
n,x,a,s:longint;
begin
read(n);
a:=1;
for x:=1 to n do
a:=a*x;
s:=s+a;
end;
writeln(a);
end.
Программа будет работать для n<=12, если надо больше, то меняйте тип переменных a и s на int64 / uint64
var
n,x,a,s:longint;
begin
read(n);
a:=1;
for x:=1 to n do
begin
a:=a*x;
s:=s+a;
end;
writeln(a);
end.
Программа будет работать для n<=12, если надо больше, то меняйте тип переменных a и s на int64 / uint64