Вычислить среднее арифметическое значение последовательности целых чисел - Turbo Pascal

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

Вычисляет среднее арифметическое значение последовательности целых чисел. Первое, считываемое целое число, определяет количество значений, которое осталось ввести (оно не учитывается в вычислениях). Программа должна считывать значения по одному. Использовать оператор цикла for.

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

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

var i, n, x: integer;
    sr: real;
begin
  sr := 0;
  write('n = ');
  readln(n);
  for i := 1 to n do
    begin
      write('x[', i, '] = ');
      readln(x);
      sr := sr + x
    end;
  write('Average = ', sr / n:0:5);
  readln
end.

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

Переменные i, n, x объявлены как целочисленные.
Переменная sr объявлена как вещественная (real).
Строка кода sr := 0; инициализирует переменную sr значением 0.
Строка кода write('n = '); запрашивает у пользователя значение переменной n и записывает его в выходной поток.
Цикл for i := 1 to n do начинается с i равным 1 и продолжается до i равного n.
Внутри цикла строка кода write('x[', i, '] = '); запрашивает у пользователя значение переменной x для i-го элемента и записывает его в выходной поток.
Строка кода sr := sr + x; суммирует значение переменной sr с значением переменной x для i-го элемента.
После завершения цикла for, строка кода write('Average = ', sr / n:0:5); вычисляет среднее арифметическое значение последовательности, деля sr на n и округляя результат до 5 знаков после запятой.
Строка кода readln; считывает ввод пользователя.