program OddProduct;
const
n = 3;
m = 3;
var
matrix: array$$\mathrm{1..}n,\mathrm{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${}^{\prime }Enterelemen{t}^{\prime },i{,}^{\prime }{,}^{\prime },j{,}^{\prime }{:}^{\prime }$;
readln$matrix[i,j]$;

if $matrix[i,j]mod3=2$ and (trunc(matrix[i, j]) mod 2 <> 0) then
product := product * matrix$$i,j$$;
end;

end;

writeln${}^{\prime }Productofoddelementswithremainder2mod3{:}^{\prime },product:0:2$;
end.