Вычислите произведение четных чисел на промежутке от - 3 до 9

program zz1;

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

begin

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

for i:=-3 to 9 do / / организуем цикл, в котором переберем все числа от - 3 до 9

if (i 0) and (i mod 2 = 0) then r:=r * i; / / проверяем условие и вычисляем произведение четных чисел от - 3 до 9 по формуле исключив из рассмотрения ноль

write (' произведение четных чисел от ', - 3,' до ', 9,' = ', r); / / выводим ответ

end.