Дан массив из 5 цифр подсчитать сумму элементов используя procedure для чтения и function для решения a[-3;100;10;12;18]

type Arr = array [1..5] of integer; //Тип массива const   a: Arr = (-3, 100, 10, 12, 18);{Задаем типизированную константу - массив и сразу же присваиваем элементам значения} procedure ReadArr(a: Arr);{Процедура для чтения массива}   function Summa : integer; {Вложенная в процедуру функция для вычисления суммы элементов (входной в процедуру параметр виден и в функции)}   var     S, i: integer;   begin //Начало функции     S:= 0;     for i:= 1 to 5 do s:= s + a[i]; //Вычисление суммы     Summa:= s; //Присваиваем значение s функции   end; //Конец функции begin //Начало процедуры   write(Summa); //Выводим значение функции end; //Конец процедуры begin //Начало программы   ReadArr(a); end. //Конец программы Если только так. Я использовал процедуру, в которой входным параметром является заданный массив и в процедуре - вложенную функцию, вычисляющую сумму элементов. А вообще непонятно, зачем тут еще и procedure, ведь вполне можно обойтись одной функцией.