read (n);

s := 1;

repeat

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

write (s)