const
 s: string = 'bbbbaacccc';

var
 counter: array[char] of byte;
 max: byte;

var i: integer;
begin
 max := 0;
 for i := 1 to length(s) do
   begin
     inc(counter[s[i]]);
     if max < counter[s[i]] then
       max := counter[s[i]]
   end;

 for i := 1 to 255 do
   if counter[chr(i)] = max then
     write(chr(i), ' ');
 writeln(max,  ' раз(а)...');
end.