n := read ();

s := 1;

repeat

  s := s * n;
  n := n - 1
  
until (n == 0);

write (s)