read (n);
f := 1;

for skip, n >= 1, n := n-1
do
  f := f * n
od;

write (f)