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

program ch;var a: array [1..10] of integer;i: integer;b:boolean;beginb:= false;randomize;for i:=1 to 10 do begina[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.