Var A1,A2:LongInt;A3,A4:Byte;A5,A6:Word;A7,A8,A9:Array[1..100]of LongInt;Begin ReadLn(A1,A3);For A2:=1to A1 do Begin A5:=65535;
A6:=0;For A4:=1to A3 do Begin Read(A7[A4]);If A7[A4]>A6 then A6:=A7[A4];If A7[A4]<A5 then A5:=A7[A4];end;For A4:=1to A3 do
Begin If A7[A4]=A5 then Inc(A8[A4]);If A7[A4]=A6 then Inc(A9[A4]);end;end;For A2:=1 to A1 do If(A8[A2]*2>=A1)and(A9[A2]=0)then
WriteLn(A2);end.