Сформировать из чисел массив и найти среднее арифметическое значение всех его составляющих - Turbo Pascal

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

в главной программе вводятся 5 чисел , функция формирует из них массив и находит ср. арифметическое значение всех его составляющих ! помогите плз

Решение задачи: «Сформировать из чисел массив и найти среднее арифметическое значение всех его составляющих»

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

Var
  m : Array[1..5] of Integer;
  i : Byte;
Function SrAr : Real;
Begin
  SrAr:=(m[1]+m[2]+m[3]+m[4]+m[5])/5;
End;
Begin
  For i:=1 to 5 do Readln(m[i]);
  Writeln('Среднее арифметическое: ',SrAr:8:4);
End.

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

В данном коде используется язык программирования Turbo Pascal.

Объявляются переменные:
- m: Array[1..5] of Integer (массив из 5 чисел типа Integer)
- i: Byte (байт)
- SrAr: Real (число с плавающей точкой) - функция, которая будет вычислять среднее арифметическое
Вычисляется среднее арифметическое значение всех чисел в массиве m с помощью функции SrAr. Результат сохраняется в переменной SrAr.
Считываются числа из стандартного ввода и сохраняются в массиве m с помощью цикла For.
Выводится на экран среднее арифметическое значение всех чисел в массиве m с помощью функции Writeln. Таким образом, данный код выполняет задачу формирования массива из чисел и нахождения среднего арифметического значения всех его составляющих.