Вывести на экран значение n!, n - целое число, вводимое с клавиатуры.

program zz1;

var

i, f, n:integer;

begin

write ('введите число n');

read (n); / /вводим число n

f:=1; / /задаем начальное значение факториала

for i:=1 to n do / /перебираем числа от 1 до n

f:=f*i; / /каждое число из цикла умножаем на факториал

write (f); / /выводим ответ

end.