Вычисление произведения тех элементов матрицы, которые кратны 3 и не кратны 2 - Pascal ABC

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

Составьте программу вычисления произведения тех элементов двухмерного массива А(N,M), что кратны 3 и не кратны 2. Помогите пожалуйста

Решение задачи: «Вычисление произведения тех элементов матрицы, которые кратны 3 и не кратны 2»

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

p:=1;
k:=0;
for i:=1 to n do
for j:=1 to m do
 if (a[i,j] mod 3=0) and (a[i,j] mod 2<>0) then
  begin
   p:=p*a[i,j];
   inc(k);
  end;
if k=0 then
 writeln('Нет таких чисел')
else
 writeln(p) ;

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

Переменная p инициализируется значением 1.
Переменная k инициализируется значением 0.
Запускается цикл for для перебора всех элементов матрицы a[i,j] от i=1 до n и j=1 до m.
Внутри цикла проверяется условие (a[i,j] mod 3=0) и (a[i,j] mod 2<>0). Это условие проверяет, является ли элемент a[i,j] кратным 3 и не кратным 2.
Если условие выполняется, то происходит вычисление произведения p*a[i,j] и увеличивается значение переменной k на 1.
После завершения внутреннего цикла for, проверяется значение переменной k.
Если k равно 0, то выводится сообщение Нет таких чисел.
Если k не равно 0, то выводится значение переменной p.