Найти среднее арифметическое чисел от 89 до 113 в паскаль

program zz1;

var b, r, i : integer; / / задаем переменные целого типа

begin

for i:=89 to 113 do / / организуем цикл, в котором переберем все числа от восьмидесяти девяти до ста тринадцати

begin

r:=r + i; / / вычисляем сумму чисел

b:=b + 1; / / вычисляем количество чисел

end;

write (' среднее арифметическое чисел от 89 до 113 = ', r/b:6:2); / / выводим ответ в формате шесть знаков для всего числа и два знака после точки

end.