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];