Ответ:

var s,i,b: integer;

begin

writeln('Введите b: ');

readln(b);

i:=100;

s:=0;

while (i<=b) do

 begin

 s:=s+i;

 i:=i+1;

 end;

writeln('Среднее арифметическое целых чисел',

' от 100 до ',b,' равно ',s/(b+1-100));

end.