var i,n,a,k,p:longint;
begin
readln(n);
k:=0;
p:=0;
for i:=1 to n do
 begin
   readln(a);
   if k=0 then
    begin
      p:=a;
      inc(k);
    end else
   if p=a  then inc(k) else dec(k);
 end;
writeln(p);
end.