var v:array [1.. 1000000] of longint;
    i, n, p, e, t:longint;
    f, g:text;
    buf1:array [1.. 1 shl 17] of char;

begin
assign (f, 'elmaj.in'); settextbuf (f, buf1); reset (f);
assign (g, 'elmaj.out'); rewrite (g);

read (f, n);
p:=0; e:=-1;

for i := 1 to n do
  begin
  read (f, v[i]);

  if p=0 then
    begin
    p:=1; e:=v[i];
    end
          else
    begin
    if v[i]=e then inc (p) else dec (p);
    end;
  end;

t:=0;
for i := 1 to n do if v[i]=e then inc (t);

if t> n div 2 then write (g, e, ' ', t) else write (g, '-1');

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