Найти среднее арифметическое чисел которое делятся на 3 без остатка от 100 до 1

program zz1;

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

begin

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

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.