program test02;
var
x:longint;
n,i:integer;
begin
readln(n);
x:=1;
for i:=1 to n do
x:=x*i;
writeln(x);
end.
输入：8
答案：40320