{* Задача 51 *}

Unit ZADACH51;
Interface
Implementation
Begin
 writeln('Дана строка символов. Подсчитать сколько раз в каждом слове встречается буква м.');
End.

Program pas0;

Uses zadach51.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  s  : String;
  sl : String;
  i  : integer;
  a  : integer;
Begin
  readln(s);
  s := s + ' ';
  While length(s)0 Do
  Begin
    sl := copy(s, 1, pos(' ', s));
    a := 0;
    For i := 1 To length(sl) Do {* Увеличиваем i от 1 до length(sl) с шагом 1 *}
      If sl[i] = 'м' Then
        a := a + 1;
    writeln(sl, ' ', a);
    delete(s, 1, length(sl));
  End;
  
End.