В двумерном массиве действительных чисел найти произведение нечетных элементов остаток от деления на 3 которых равен 2.
( надо написать на языке Паскаль)

Предыдущий
вопрос Следующий
вопрос

program OddProduct;
const
n = 3;
m = 3;
var
matrix: array[1..n, 1..m] of real;
i, j: integer;
product: real;
begin
product := 1;

for i := 1 to n do
begin
for j := 1 to m do
begin
write('Enter element ', i, ',', j, ': ');
readln(matrix[i, j]);

end;

writeln('Product of odd elements with remainder 2 mod 3: ', product:0:2);
end.