помогите с заданием 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 lt; 100 then writeln('b обязано быть больше или одинаково 100');

   until b gt;= 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 lt; a then writeln('b обязано быть больше a');

   until b gt; a;

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

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

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

end.