Вычислить среднее арифметическое 5 чисел. - Pascal ABC

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

Ввести с клавиатуры 5 дробных чисел вычислить их среднее арифметическое

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

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

var a : array[1..5] of real;
i:integer;
sr :real;
begin
  writeln('Введите 5 дробных чисел');
  for i := 1 to 5 do
  readln(a[i]);
  for i := 1 to 5 do
      sr := sr +a[i];
writeln('Среднее арифметическое = ', sr/5);
end.

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

Создается переменная a типа array[1..5] of real, которая представляет собой массив из 5 чисел типа real.
Затем объявляется переменная i типа integer, которая будет использоваться для цикла.
Переменная sr инициализируется значением 0 типа real. Она будет использоваться для хранения суммы всех чисел в массиве a.
Выводится сообщение «Введите 5 дробных чисел» с помощью функции writeln().
Затем начинается цикл for, который выполняется 5 раз, начиная с i := 1 и заканчивая i <= 5.
Внутри цикла каждая итерация считывает одно число из массива a с помощью функции readln(). Значение числа сохраняется в переменной a[i].
После каждой итерации переменная sr увеличивается на сумму числа a[i] и предыдущего значения sr.
По завершении цикла выводится среднее арифметическое всех чисел в массиве a с помощью формулы sr/5.
Код заканчивается точкой с запятой end..