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

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.