program example;
var
  a:array[1..1000] of integer;
  digit:array[0..9] of integer;
  i:integer;
  j:integer;
  t:integer;
  r:integer;
  q:integer;
  n:integer;
begin
 write('count? ');
 readln(n);
 for i:=1 to n do
 begin
  write('a[',i,']=');
  readln(a[i]);
 end;

 for i:=0 to 9 do
 begin
  digit[i]:=0;
 end;

 for i:=1 to n do
 begin
  t:=a[i];
  while t > 0 do
  begin
   r:=t-(t div 10)*10;
   t:=t div 10;
   digit[r]:=digit[r]+1;
  end;
 end;
 j:=0;
 q:=0;
 for i:=0 to 9 do
 begin
  if digit[i]>q then
  begin
   q:=digit[i];
   j:=i;
  end;
 end;
 writeln(j,' ',q);
 readln;
end.