Составьте программу ,которая:считает, сколько раз в тексте, заданном с клавиатуры, встречается буква «М».решение паскаль через цикл 

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

end.