Отыскать среднее арифметическое чисел которое делятся на 3 без остатка от

program zz1;

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

begin  

for i:=100 downto 1 do // организуем цикл, в котором переберем все числа от 100 до единицы

if i mod 3 = 0 then begin r:=r + i; // вычисляем сумму чисел, которые делятся на 3 без остатка  

b:=b + 1; // вычисляем количество чисел, которые делятся на 3 без остатка

end;

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

end.