Ответ:

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

Объяснение:программа для вычисления факториала

Ответ:

var

   factorial,n,i: integer;    

begin

   write('n = ');  

   readln(n);

   factorial := 1;

   for i:=2 to n do

       factorial := factorial * i;

   writeln('n! = ', factorial);

readln;

end.