Найти произведение натуральных чисел от 1 до n

program zz1;

var n, i, p:integer; / / задаем переменные целого типа

begin

write (' введите n '); / / вводим с клавиатуры количество нечетных чисел

read (n);

p:=1; / / задаем начальное значение для произведения

for i:=1 to n do / / организуем цикл на n повторений

begin

p:=p * i; / / вычисляем произведение, умножая каждое следующее число из диапазона на произведение

end;

write (' произведение n первых натуральных чисел = ', p); / / выводим ответ

end.