var f:text;
    n,k,el,nr,i:longint;
    a:array[1..1000000]of longint;
begin
assign(f,'elmaj.in');
reset(f);
readln(f,n);
read(f,nr);
el:=nr;
k:=1;a[1]:=nr;
for i:=2 to n do
 begin
  read(f,nr);
  a[i]:=nr;
  if k=0 then
   el:=nr;
  if nr=el then inc(k)
           else dec(k);
 end;
close(f);
{reset(f);
readln(f,n);}
k:=0;
for i:=1 to n do
  if nr=a[i] then inc(k);
{close(f);}
assign(f,'elmaj.out');
rewrite(f);
 if k>n div 2 then writeln(f,el,' ',k)
              else writeln(f,'-1');
close(f);
end.