program sumaCompon;
const mmax=30;
type Matrice = array[1..mmax, 1..mmax] of integer;
var m, i, j, suma: integer;
A: Matrice;
begin
write ('m='); read(m);
writeln(' introdu elementele matricei: ');
for i:=1 to m do
for j:=1 to m do
begin
write('A[',i,',',j,']='); read(A[i,j]);
if (j mod 2 =1)and(A[i,j] mod 2 =0) then suma:=suma+A[i,j];
end;
writeln('suma=',suma);
end.