Дан массив из 10 целых чисел заполненный случайными числами из промежутка

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 gt; 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.