:1. составить программу удаляющую из данного текста все буквосочетания «ма» и выводящую получившийся текст и его длину. 2. составить программу находящую количество букв «с» в тексте. 3. составить программу определяющую, какая из букв «е» или «о» встречается в тексте чаще.

// pascalabc.net 3.3, сборка 1634 от 14.02.2018 // внимание! если программа не работает, обновите версию! №1 begin   var s: =readlnstring;   s: =s.regexreplace('ма','');   writeln('длина=',s.length,': ',s) end. пример ведьма измазала маслом карман гнома длина=25: ведь иззала слом карн гно №2 begin   var s: =readlnstring;   writeln('количество букв "с" равно ',s.where(t-> t='с').count) end. пример ассистент профессора сидел за столом и что-то писал количество букв "с" равно 8 №3 begin   var s: =readlnstring;   var d: =s.where(t-> t='е').count-s.where(t-> t='о').count;   if d> 0 then writeln('буква "е" встречается чаще буквы "о"')   else     if d< 0 then writeln('буква "о" встречается чаще буквы "е"')     else writeln('буквы "е" и "о" встречаются динаковое число раз') end. пример мороз и солнце; день чудесный! еще ты дремлешь, друг прелестный. буква "е" встречается чаще буквы "о"

Var      a: array[1..5]of integer;       i: integer; begin   for i : = 1 to 5 do      read(a[i]);       for i : = 1 to 5 do                if ((a[i] mod 2) = 0) then writeln('число - ',a[i], ' индекс - ',i); end.abs pascal