Выделите операторы, образующие тело цикла.

Выделено синим цветом правильный вариант

Pascalabc.net 3.3.5, сборка 1662 от 29.04.2018 внимание! если программа не работает, обновите версию! begin   var a: =readarrinteger(30);   writeln('1. количество четных ',a.where(t-> t.iseven).count);   var s: =a.where(t-> (t mod 3=0) and (t mod 9< > 0) and t.between(10,99));   write('2. мудреное среднее арифметическое ');   if s.count=0 then writeln(-1) else writeln(s.average);   write('3. наибольшая длина цепочки четных элементов ');   var (l,l1): =(-1,0);   foreach var t in a do       if t.iseven then l1+=1       else begin           l: =max(l,l1);           l1: =0           end;   writeln(l);   var k: =readinteger('4. номер удаляемого элемента (1-30): ')-1;   writeln('массив после удаления элемента');   a: =a? [: k]+a? [k+1: ]; a.println;   write('5. второй максимум ');   a.orderbydescending(t-> t).skip(1).take(1).println end. пример 40 -116 91 -47 14 -10 -88 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49 1. количество четных 19 2. мудреное среднее арифметическое 54 3. наибольшая длина цепочки четных элементов 9 4. номер удаляемого элемента (1-30): 7 массив после удаления элемента 40 -116 91 -47 14 -10 81 92 -106 121 133 -49 69 50 -60 49 57 30 49 60 106 -94 50 -32 -52 -60 -96 148 -49 5. второй максимум 133