var maj,i,j,n,k:longint;
    s:array [1..1000000] of longint;
    b:array [1..1 shl 16] of char;
    o,d:text;
begin
assign(o,'elmaj.out');rewrite(o);
assign(d,'elmaj.in');settextbuf(d,b);reset(d);
read(d,n);
for i:=1 to n do
  begin
    read(d,s[i]);
    if k=0 then
      begin
        k:=k+1;
        maj:=s[i];
      end else if s[i]=maj then k:=k+1
                           else k:=k-1;
    end;
j:=0;
for i:=1 to n do if s[i]=maj then j:=j+1;
if j>(n div 2) then write(o,maj,' ',j)
               else write(o,-1);
close(o);close(d);
end.