var a:array[1..1000000] of int64; i,n,j,x:int64; fi,fo:text;
begin assign(fi,'elmja.in'); reset(fi);
      assign(fo,'elmaj.out'); rewrite(fo);
      read(fi,n);
      i:=1;
      while i<=n do begin
                        read(fi,a[i]);
                        inc(i);
                    end;
      i:=1;
      while i<=n do begin
                        j:=1;
                        while j<=n do begin
                                        if a[j]=a[i] then inc(x);
                                        inc(j);
                                       end;
                        if x=n div 2+1 then break else inc(i);
                       end;
      if x<>n div 2+1 then writeln(fo,-1)
                      else writeln(fo,a[i],' ',x);
      close(fi); close(Fo);
end.