Дан массив из 10 целых чисел заполненный случайными числами из интервала [-15;15].Определить является ли произведение

program ch;
var a: array [1..10] of integer;
i: integer;
b:boolean;
begin
b:= false;
randomize;
for i:=1 to 10 do
begin
a[i]:=random(31)-15; //заполнение массива числами
write(a[i],' '); //печать элементов массива
if (i mod 2 > 0) and (a[i] mod 2 = 0) then b:= true;
//Если номер элемента нечетный, а сам элемент — четное число,
//тогда произведение будет четным. Отвечающей за четность
//переменной b будет присвоено значение true (истина).
//Если на нечетных местах будет несколько четных элементов, то
//переменная b будет подтверждена несколько раз, значение false //она не получит.
end;
writeln();
if b then write('Product is even number ')
else write('Product is an odd number')
end.