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