Помогите!! Написать программку, которая подсчитывает среднее арифметическое всех чисел кратных

Первое число в спектре [1;52], кратное 3, это само число 3. А далее надобно к нему каждый раз по 3 добавлять, получая числа 6, 9, 12 и т.д.

Как досадно бы это не звучало (а поточнее, ура!), вот все решение задачки. Фактически, одна строчка.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  Range(3,52,3).Average.Println
end.

Итог
27

Разъяснения.
Конструкция Range(3,52,3) порождает последовательность чисел от 3 с шагом 3, пока еще одно число не превзойдет 52.
.Average принимает эти числа и находит их среднее арифметическое.
.Println выводит значение,  вычисленное .Average

//Язык Pascal

Program Test;

//Объявляем переменные

Var i, counter, sum: integer; arifmetic: real;

Begin

//Присваиваем значение 0 переменным

counter := 0;
sum := 0;

//Используем цикл for для хода по данному спектру чисел

//В переменную sum прибавляем все числа, которые кратны 3

//Увеличиваем счетчик counter для подсчета количества чисел, которые кратны 3

for i := 1 to 52 do
begin
if (i mod 3 = 0) then
begin
sum := sum + i;
counter := counter + 1;
end;
end;

//Считаем средне арифметическое (сумма всех чисел / их количество)

arifmetic := sum / counter;

//Выводим итог на экран

Writeln('Средне арифметическое = ', arifmetic);

End.