желая бы 3 пожалуйста безотлагательно

const

 n = 30;

var

 a: array [1..n] of integer;

 i, c, m: integer;

 count: array [1..2] of byte;

 sum: array [1..2] of integer;

begin

 randomize;m := 0;c := 0;

 for i := 1 to 2 do  

   begin

     count[i] := 0;

     sum[i] := 0;

   end;

 for i := 1 to n do

   begin

     a[i] := random(61) - 30;

     write(a[i]:3);

     if (a[i] gt;= -20) and (a[i] lt;= -10) then

     begin

       inc(count[1]);

       sum[1] := sum[1] + a[i];

     end;

     if (a[i] lt; 100) and (a[i] gt; -100)

         and (a[i] mod 100 = 11) then

     begin

       inc(count[2]);

       sum[2] := sum[2] + a[i]

     end;

   end;

 writeln;

 for i := 1 to n do

   if (a[i] gt; 0) and (a[i] mod (абс(a[2])) = 0) and (a[i] mod 10 = 5) then

     begin

       c := c + a[i];

       inc(m);

     end;

 writeln('1 ', sum[1] / count[1]);

 writeln('2 ', sum[2] / count[2]);

 writeln('3 ', c / m);

 if ((a[1] + a[2]) / 2) gt; ((a[n] + a[n - 1]) / 2) then

   writeln('4 ', (a[1] + a[2]) / 2, ' gt; ', (a[n] + a[n - 1]) / 2)

     else

       if ((a[1] + a[2]) / 2) = ((a[n] + a[n - 1]) / 2) then

         writeln('4 ', (a[1] + a[2]) / 2, ' = ', (a[n] + a[n - 1]) / 2)

           else  

             writeln('4 ', (a[1] + a[2]) / 2, ' lt; ', (a[n] + a[n - 1]) / 2);  

end.

В программке выполняются все пункты с листочка. Некие из пт сами для себя противоречат, но условия в задачке избегают ошибок