Найти творенье n первых нечетных естественных чисел, при поддержки PASKAL

program zz1;

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

begin

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

read(n);  

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

a:=1; // задаем изначальное значение первого нечетного естественного числа

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

begin

p:=p * a; // получаем произведение

a:=a + 2; // получаем следующее нечетное естественное число

end;

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

end.