var a := new Stack<integer>;
b: integer;
c: int64 := 1;
begin
  write('Введите число: ');
  readln(b);

  for var i := 1 to b do
    a.Push(i);

  for var i := 1 to b do
    c *= a.Pop();

  writeln(c);
end.