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

program zz1;var s:string; // задаем переменную строкового типаi, k:integer; // задаем переменные целого типаbeginwrite(\' введите строку \');read(s); // вводим с клавиатуры заданную строкуfor i:=1 to length(s) do // организуем цикл, в котором переберем все символы заданной строки от первого до последнегоif s[i] = \'М\' then k:=k + 1; // находим заданную букву в строке и считаем ееwrite(\'количество букв \"М\" = \', k); // выводим ответ на экранend.