Найти произведение нечетных чисел на промежутке от 1 до 8

program zz1;

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

begin

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

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

begin

if i mod 2 = 1 then p:=p * i; / / проверяем, если число из промежутка нечетное, то умножаем его на произведение

end;

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

end.