Составьте программу, которая считает, сколько раз в тексте, заданном с клавиатуры, встречается буква "М" Текст: Мой компьютер сломан

program zz1;

var s:string; / / задаем переменную строкового типа

i, k:integer; / / задаем переменные целого типа

begin

write (' введите строку ');

read (s); / / вводим с клавиатуры заданную строку

for i:=1 to length (s) do / / организуем цикл, в котором переберем все символы заданной строки от первого до последнего

if s[i] = 'М' then k:=k + 1; / / находим заданную букву в строке и считаем ее

write ('количество букв "М" = ', k); / / выводим ответ на экран

end.