В матрице найти количество элементов с нечётным произведением индексов. - Pascal

Формулировка задачи:

помогите пожалуйста написать код задачи!!!Очень прошу!!! В массиве А[К,М] найти количество элементов с нечетным произведением индексов.

Решение задачи: «В матрице найти количество элементов с нечётным произведением индексов.»

Листинг программы

var b:array [1..50] of integer;
    i,n,min:integer;
begin
Write('Size of array = ');readln(n);
for i := 1 to n do
    begin
      write('Array [',i,'] = ');readln(b[i]);
      if (i=1) then min:=b[1]
      else
            if (min>b[i]) then min:=b[i];
    end;
    Writeln;
Write('Array = ');
for i := 1 to n do
    begin
      Write(b[i],' ');
    end;
Writeln;
Writeln('MIN = ',min);
readln;
end.

Объяснение кода листинга программы

Этот код на языке Pascal предназначен для подсчета количества элементов в матрице, которые имеют нечётное произведение индексов.

Переменная b объявляется как массив целых чисел размером от 1 до 50.
Переменные i, n и min инициализируются значениями 1, размера массива и минимальным значением соответственно.
Выводится размер массива.
Запускается цикл for, который проходит по каждому элементу массива от 1 до n.
Внутри цикла выводится значение текущего элемента массива.
Если текущий элемент является первым (т.е. i равно 1), то переменная min устанавливается равной этому значению.
В противном случае, если текущее значение min меньше значения текущего элемента, то min устанавливается равным текущему значению.
После завершения внутреннего цикла выводится сообщение Array =, за которым следуют значения всех элементов массива, разделенные пробелами.
Затем выводится значение переменной min, которая представляет собой минимальное значение из всех элементов массива.
В конце программы выводится сообщение Readln.