Отыскать произведение естественных чисел от 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.