Для заданных натуральных n и a1,…an определить количество членов являющихся нечетными числами и одновременно имеющих четные номера — Pascal(Паскаль)

var
  n: byte;
  a: byte; { переменные входа }

var
  z, k: byte; { счетчик цикла и количества нужных членов }

begin
  readln(n);
  k := 0; { онуляем счетчик, если ничего не найдем, то будет 0 }
  for z := 1 to n do
  begin
    read(a);
    if (a mod 2 = 1) { если z-й член последовательности нечётный }
      and (z mod 2 = 0) { и его номер четный }
    then
      inc(k); { увеличиваем на один количество найденных членов }
  end;
  write(k);
  readln;

end.

const
  n = 10;

var
  i, k: integer;
  a: array [1 .. n] of integer;

begin
  for i := 1 to n do
  begin
    a[i] := random(20);
    write(' ', a[i]:3);
  end;
  writeln();
  writeln('-------');

  i := 1;
  k := 0;
  for i := 1 to n do
  begin
    if (odd(a[i]) = false) and (odd(i) = true) then
      inc(k);
  end;

  writeln('-------', k);

end.