type seribu=1..1000;
     seseribu=1..100000;

var kandidat:array [1..100000] of seseribu;
    angka:array [1..100000] of seribu;
    max,n,i,penghitung:seseribu;

begin
 readln(penghitung);

 for i:=1 to penghitung do
  begin
   readln(angka[i]);
   inc(kandidat[angka[i]]);
  end;

 for i:=1 to penghitung do
  if max<=kandidat[i] then (*karena nilai i menaik, maka akan mencari modus terbanyak dan nilai terbesar*)
   begin
     max:=kandidat[i];
     n:=i*10000;
   end;

 writeln(n);
end.