Дана последовательность целых чисел 4; -1; 5; 6; -7; 9; -6. Нужно посчитать кол-во четных чисел и найти произведение отрицательных чисел

program zz1;

const n = 7; / / задаем количество элементов в массиве

R:array [1 ... n] of integer = (4, - 1, 5, 6, - 7, 9, - 6); / / задаем последовательность чисел

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

begin

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

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

begin

if R[i] < 0 then k:=k * R[i]; / / проверяем, если элемент отрицательный, то умножаем его на произведение

if R[i] mod 2 = 0 then m:=m + 1; / / проверяем, если элемент четный, то считаем его

end;

writeln (' количество четных чисел = ', m);

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

end.