res=1;for i:=0 to 2 dofor j:=0 to 2 doif (mas[i,j] mod 2 <>0) and(mas[i,j]<0) then res=res*mas[i,j];
res=1;
for i:=0 to 2 do
for j:=0 to 2 do
if (mas[i,j] mod 2 <>0) and(mas[i,j]<0) then res=res*mas[i,j];