Вывести на экран среднее арифметическое элементов массива - Free Pascal

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

3. A[i] массив целых чисел, состоящий из 5 элементов. Элементы массива вводятся пользователем. Выполнить: Вывести на экран среднее арифметическое элементов

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

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

Program NameProgram;
uses crt;
const len=5;
type Mas=array[1..len] of Integer;
var i:Byte;
    A:Mas;
    sum:integer;
begin
    clrscr;
    sum:=0;
    Write('Enter Array:');
    for i:=1 to len do
        begin
            readln(A[i]);
            sum:=sum+A[i];
        end;
    sum:=sum div len;
    writeln('Average: ',sum);
    readln;
end.

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

Объявление программы на языке Free Pascal.
Использование модуля CRT для работы с консолью.
Установка константы len равной 5, которая определяет размер массива.
Создание типа данных Mas, который представляет собой массив целых чисел.
Объявление переменной i типа Byte для цикла.
Объявление переменной A типа Mas для хранения массива.
Объявление переменной sum типа Integer для хранения суммы элементов массива.
Очистка экрана с помощью функции clrscr.
Инициализация переменной sum значением 0.
Вывод сообщения Enter Array: для приглашения пользователя ввести элементы массива.
Цикл for для чтения элементов массива.
Внутри цикла, каждый элемент массива считывается с помощью функции readln и сохраняется в соответствующем элементе массива A.
Каждый элемент массива прибавляется к переменной sum.
После завершения цикла, переменной sum присваивается значение среднего арифметического элементов массива, полученное с помощью операции деления sum на len.
Вывод значения переменной sum с помощью функции writeln.
Чтение символа из стандартного ввода с помощью функции readln для завершения работы программы.
Программа завершается, когда пользователь нажимает любую клавишу.
Программа выводит на экран сообщение Average: и значение переменной sum.
Программа ожидает ввода пользователя.
Программа завершается, когда пользователь нажимает любую клавишу.