var a,b:array[1..100000] of longint;
    n,i,max:longint;
begin
read(n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
b[a[i]]:=b[a[i]]+1;
for i:=1 to n do
if b[a[i]]>max then max:=b[a[i]];
for i:=1 to n do
if b[a[i]]=max then begin write(a[i]);break;end;
end.
/**************************************************************
	Problem: 1883
	User: admin
	Language: Pascal
	Result: Wrong Answer
****************************************************************/