Вычислить среднее арифметическое членов с 5 по 10 и с 18 по 25 - Turbo Pascal

Формулировка задачи:

Арифметическая прогрессия задана первым членом A1 и разностью D. Вычислить среднее арифметическое членов с 5 по 10 и с 18 по 25. С модулем!

Решение задачи: «Вычислить среднее арифметическое членов с 5 по 10 и с 18 по 25»

Листинг программы

function an(a1, n, d: double): double;
begin
  an := a1 + (n - 1) * d
end;
 
var a1, d: double;
 begin
   write('a1, d = ');
   readln(a1, d);
   writeln('<S5-10> = ', (an(a1, 5, d) + an(a1, 10 ,d)) / 2:0:4);
   writeln('<S18-25> = ', (an(a1, 18, d) + an(a1, 25, d)) / 2:0:4);
   readln
end.

Объяснение кода листинга программы

В данном коде используется функция an, которая принимает три параметра: a1, n и d. Эта функция вычисляет среднее арифметическое чисел a1 и следующих n-1 чисел, каждое из которых умножается на d. Значение функции возвращается в виде числа с плавающей запятой (double). Далее, в переменной a1 хранится первое число, для которого вычисляется среднее арифметическое, а в переменной d - шаг, на который умножается каждое последующее число. Затем, происходит чтение значений переменных a1 и d с помощью функции readln. После этого, вычисляются средние арифметические для пяти и десяти чисел, используя функцию an. Значения этих средних выводятся на экран с помощью функции writeln. После этого, происходит чтение следующих 10 чисел с помощью функции readln. Затем, вычисляются средние арифметические для восемнадцати и двадцати пяти чисел, используя функцию an. Значения этих средних также выводятся на экран с помощью функции writeln. Наконец, происходит чтение последнего числа и значения d с помощью функции readln, после чего программа завершается.