KV4

Program _1;

var n, p, i :longint;

begin

read(n);

p:=1;

for i:=1 to n do
    p:=i*p;

write(p)
end.