program PascalGuru;
var A:array [1..50,1..50] of integer;
    B:array [1..50] of integer;
    i,j,n,m:integer;
    k:integer;
    nec:boolean;
 
 
 
begin
write('m = '); readln(m);
write('n = '); readln(n);
 
for i:=1 to m do
for j:=1 to n do begin write ('A[',i,',',j,']='); readln (A[i,j]); end;
writeln;
write ('vvedennyi massiv: ');
for i:=1 to m do begin writeln;
for j:=1 to n do write (A[i,j]:3,' '); end;
 
 
k:=0;
 
for j:=1 to n do begin nec:=true;
                 for i:=1 to m do
                 if A[i,j] mod 2=0 then nec:=false;
 
                 if nec then begin inc(k); B[k]:=j;  end;
                 end;
 
writeln;writeln('Massiv B:');
for i:=1 to k do write (B[i]:3,' ');
 
readln;
end.