ДАЮ 80 поинтовНаписать программу, которая:1. заполняет массив из 5 чисел вводом склавиатуры2. Выводит его на экран3. и находит сумму элементов этогомассива

на PascalABC.NET:

var

 a: array [1..5] of integer;

 S: integer;

begin

 writeln('Введите элементы массива (5) :');

 for var i := 1 to 5 do

   read(a[i]);

 S := 0;

 for var i := 1 to 5 do

 begin

   S := S + a[i];

 end;

 writeln('Сумма всех элементов массива: ', S);

end.