помогите с заданием 3 (написать в паскале)

a)

var

   sum : integer;

begin

   for var i := 1 to 1000 do begin

       sum += i;

   end;

   writeln('среднее арифметическое диапозона 1..1000 равно ', sum/1000);

end.

b)

var

   b, sum : integer;

begin

   repeat

       write('введите конец диапозрна b=');

       readln(b);

       if b < 100 then writeln('b должно быть больше либо равно 100');

   until b >= 100;

   for var i := 100 to b do sum += i;

   writeln('среднее арифметическое диапозона 100..', b,' равно ', sum/(b-99));

end.

а это программа которая считает в заданном диапозоне и решает обе задачи

var

   a, b, sum : integer;

   s : real;

begin

   repeat

       write('введите начало диапозона a=');

       readln(a);

       write('введите конец диапозрна b=');

       readln(b);

       if b < a then writeln('b должно быть больше a');

   until b > a;

   for var i := a to b do sum += i;

   s := sum/(b-a+1);

   writeln('среднее арифметическое диапозона ',a, '..', b, ' равно ', s);

end.