begin
  var st := ReadLnString('Введите строку:');
  WriteLn('В данной строке ', st.Where(ch -> ch = 'M').Count <> 0 ? 'содержится' : 'не содержится', ' буква M');
  WriteLn('В данной строке ', st.Where(ch -> ch = 'A').Count <> 0 ? 'содержится' : 'не содержится', ' буква A');
end.