var  f,g:text;
      a:array[1..1000000]of longint;
      n,nr,i,max,k:longint;
begin
assign(f,'elmaj.in');
assign(g,'elmaj.out');
reset(f);
rewrite(g);
read(f,n);
for i:=1 to n do
read(f,a[i]);
 nr:=1;
k:=a[1];
for i:=2 to n do
begin
if nr=0 then
begin
k:=a[i];
nr:=1;
end
else if(k=a[i]) then inc(nr)
else dec(nr);
end;
nr:=0;
for i:=1 to n do
if a[i]=k then nr:=nr+1;
write(g,k,' ',nr);
close(f);
close(g);
end.