program Factorial;
var
  n, k, f: integer;
begin
  write('Введите n » ');
  readln(n);

  k := 1;
  f := 1;

  while k <= n do
  begin
    f := f * k;
    k := k + 1;
  end;

  writeln(n, '! = ', f);
end.