Дан массив Аn...

Дан массив Аn определить количество нечетных элементов массива, стоящих на четных местах вывести на экран исходный массив и найденное количество

 

const n = 15;
var
  a: array[1..n] of integer;
  i, count: integer;
begin
  for i := 1 to n do begin
    a := random(100);
    write(a, ' ');
    if(i mod 2 = 0) and (a mod 2 <> 0) then inc(count);
  end;
  writeln;
  writeln('[', count, ']');
end.