Составит программу, которая в строке S находит количество а и о и вычёркивает все буквы м

program zz1;

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

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

begin

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

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

for i:=length (s) downto 1 do

begin

if (s[i] = 'а') or (s[i] = 'о') then k:=k + 1; / / считаем количество букв

if s[i] = 'м' then delete (s, i, 1); / / удаляем м

end;

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

write (' строка после удаления из нее м = ', s); / / выводим другой ответ

end.