Вычисление р = n! (n факториал).

program E9;
  var p, i, n: integer;
begin
  write ('введите целое n = ');
  readln (n);
  p: = 1;
  for i: = 1 to n do
    p: = p * i;
  write (n, '! = ',p);
  readln
end.