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

от 0 до 9 это количество ячеек массива

а интервал это a[b]:=random(30)-15;

var b,pr:integer;    a: array [0..9] of integer;    beginrandomize;pr:=1;for b:=0 to 9 do begin  a[b]:=random(30)-15;  write(a[b],' ');  if (b mod 2 <>0) then pr:=a[b]*pr;end;if pr mod 2 = 0 then writeln('чётное');if pr mod 2 <> 0 then writeln('нечётное');end.