program primer;
var st1,st:string;
a,b:integer;
begin
write('введите текст ,в конце ввода нажмите enter'); writeln;
read(st);
for a:=1 to length(st) do begin
st1:=copy(st,a,1);
if st1='М' then
inc(b)
else if st1='м' then
inc(b)
else;
end;
write(b);

end.