var 
   f: text; 
   a, abc, max_letter_string: string; 
   k, i, number, kmax, kmax1, max_letter, max_mas, max_mas1: integer; 
   count: array [1..26] of integer; 
  
 begin 
   assign(f, '1.txt'); 
   reset(f); 
   abc := 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'; 
   kmax := -1; 
   kmax1 := -1; 
   max_mas := -1; 
   max_mas1 := -1; 
   K:=1; 
   while not eof(f) do 
   begin 
     readln(f, a); 
     for i := 1 to length(a) - 1 do 
     begin 
       number := pos(a[ i], abc); 
       inc(count[number]);      
       if a[ i] = a[i + 1] then inc(k) 
       else if kmax < k  then 
       begin 
         kmax := k; 
         k := 1; 
       end;       
     end; 
     number := pos(a[length(a)], abc); 
     inc(count[number]); 
     if kmax < k then 
     begin 
       kmax := k; 
       k := 1; 
     end; 
     if kmax1 < kmax then  
     begin 
       kmax1 := kmax; 
       for i := 1 to 26 do 
         if count[ i] > max_mas1 then max_mas1 := count[ i]; 
       for i := 1 to 26 do 
         if count[ i] = max_mas1 then  
         begin 
           max_mas := i; 
           break; 
         end; 
       max_letter := count[max_mas];   
       max_letter_string := abc[max_mas]; 
     end; 
     kmax := -1; 
     k := 1; 
     for i := 1 to 26 do 
       count[ i] := -1; 
     max_mas := -1; 
     max_mas1 := -1; 
   end; 
   writeln(max_letter); 
   writeln(max_letter_string); 
 end.