const
  N = 256;
var
  mas: array[1..N] of integer;
  s:                  string;
  i, m, max:          integer;
begin
  readln(s);
  for i := 1 to N do
    mas[i] := 0;

  for i := 1 to length(s) do
    inc(mas[ord(s[i])]);

  max  := 0;
  m    := 0;
  for i := 1 to N do
  begin
    if max < mas[i] then
      max := mas[i];
  end;

  for i := 1 to N do
  begin
    if mas[i] = max then
    begin
      m := i;
      break
    end
  end;

  write('Самый популярный символ: ', chr(m), ', встречается раз: ', max)
end.