Дана последовательность целых чисел 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] lt; 0 then k:=k * R[i]; // проверяем, если элемент отрицательный, то умножаем его на творенье
if R[i] mod 2 = 0 then m:=m + 1; // проверяем, если элемент четный, то считаем его
end;
writeln( количество четных чисел = , m);
write( творение отрицательных чисел = , k); //выводим ответ
end.