PROGRAM Factorial;
VAR n, result: INTEGER;
BEGIN
  READ(n);
  result := 1;
  WHILE n > 1 DO
  BEGIN
    result := result * n;
    n := n - 1
  END;
  WRITE(result)
END.