Задание 4
Результаты измерений показаний трех приборов записаны в 3 строки. Необходимо найти и записать еще в строки
порядковые номера тех результатов измерений, которые больше среднего арифметического значения этих измерений
для каждого из трех ​приборов

бег - баг - шаг

море - горе - гора - пора - пара - кара - каша - даша - душа - суша

миг - маг - мак - чак   - чек - век

бант - кант   - карт - корт - кора - коса

шар - пар - паб - раб - руб - куб

муха - мура - тура - тара - пара - парк - паук - паут - плут - плот - слот - слон

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.

закодированный текст: byck is my dog.

первая программа считает сумму входящих в строку цифр стоящих на местах с нечетными номерами, начиная с первой, если это буква то вместо нее берется 0(ноль)

результат выполнения

аб2в457где245*ж0247025020

2) 

var s, r: string; i: integer;

begin readln(s); r : = ''; for i : = 1 to length(s) do if s[i] < > 'c' then r : = r + s[i]; writeln(r); end.