var  u,i,m,n:longint;
     a:array[0..1000000] of longint;
     f,g:text;
     b,c:array[0..3] of longint;

begin
assign(f,'elmaj.in'); reset (f);
assign(g,'elmaj.out'); rewrite(g);
readln (f,n);
for i:=1 to n do
 read (f,a[i]);
b[1]:=a[1];
c[1]:=1;
m:=1;
i:=2;
while (i<=n) do
 begin {m:=m+1;  }
       if (m=1) and (a[i]=b[1]) then c[1]:=c[1]+1;
       if (m=1) and (a[i]<>b[1]) then c[1]:=c[1]-1;
       if c[m]=0 then begin{m:=1;} c[m]:=1; b[1]:=a[i+1];  i:=i+1; end;
       i:=i+1;
 end;
for i:=1 to n do
 if a[i]=b[1] then u:=u+1;
if (u>=n div 2+1) then write (g,b[1],' ',u)
                  else write (g,'-1');

close(f);
close(g);
end.