var

        a:array[0..15000] of string;

        b:array[0..15000] of longint;

        n,i,num,j,max:longint;

        s,maxs:string;

 

 

begin

        readln(n);

        for i:=1 to n do

        begin

                readln(s);

                num:=0;

                for j:=1 to length(s) do

                num:=num+ord(s[j])*j;

                if a[num]='' then

                a[num]:=s;

                inc(b[num]);

                if b[num]>=max then

                begin

                        max:=b[num];

                        maxs:=s;

                end;

        end;

        writeln(maxs);

end.
/**************************************************************
	Problem: 1760
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/