Имеется числовой массив состоящий из 15 элементов. Вывести на экран среднее арифметическое всех элементов. Нужна программа на языке паскаль (PascalABC)

var

i, sum : integer; / / объявляем переменные целочисленного типа.

arr : array [1 ... 15] of integer; / / объявляем массив.

Begin

writeln ('Введите 15 чисел для заполнения массива:'); / / вывод строки на экран.

for i: = 1 to 15 do / / начало цикла.

begin

readln (arr[i]); / / считываем элемент массива.

sum : = sum + arr[i]; / / считаем сумму элементов.

end;

writeln ('Среднее арифметическое элементов массива: ', round (sum / 15, 2)); / / вывод ответа.

End.