var
fact : longint;
N :integer;
begin
fact := 1;
readln(N);
for var i := 2 to N do
fact := fact * i;
writeln(fact);
end.
