program factorial;
var
n, i: integer;
result: longint;
begin
write('Input n: ');
readln(n);
result := 1;
for i := 2 to n do
result := result * i;
writeln('n! = ', result)
end.
