program Factorial;
var
  n, i: integer;
  factorial: longint;
begin
  writeln('Ingrese un número:');
  readln(n);
  factorial := 1;
  for i := 1 to n do
    factorial := factorial * i;
  writeln('El factorial de ', n, ' es ', factorial);
end.