Сосчитать количество четных элементов массива, стоящих на нечетных местах.

uses crt;
var a:array [1..10] of integer;
    i, k: integer;
begin
     for i:=1 to 10 do
         begin
              a[i]:=random(11);
              write (a[i],' ');       // вводим элементы в массив с клавиатуры
         end;
     k:=0;
     i:=1;                               // задаем цикл перебора нечетных элементов
      while i<11 do
            begin
            if a[i] mod 2=0 then         // проверяем условие - является ли элемент четным, если да, то
               inc(k);            // увеличиваем количество на 1
            i:=i+2;
            end;
      writeln;
      writeln ('Количество четных элементов, стоящих на нечетных местах =',k);
end.

uses crt;
var a:array [1..10] of integer;
    i, k: integer;
begin
      writeln;
     for i:=1 to 10 do
         begin
              a[i]:=random(11);
              write (a[i],' ');       // вводим элементы в массив с клавиатуры
         end;
     k:=0;
     i:=1;                               // задаем цикл перебора нечетных элементов
      repeat
            begin
            if a[i] mod 2=0 then         // проверяем условие - является ли элемент четным, если да, то
               inc(k);            // увеличиваем количество на 1
            i:=i+2;
            end;
      until i>10;
      writeln;
      writeln ('Количество четных элементов, стоящих на нечетных местах =',k);
end.