var f:text;
    n,k,el,nr,i:longint;
begin
assign(f,'elmaj.in');
reset(f);
readln(f,n);
read(f,nr);
el:=nr;
k:=1;
for i:=2 to n do
 begin
  read(f,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
 begin
  read(f,nr);
  if nr=el then inc(k);
 end;
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.