Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит сумму элементов массива. перед вводом каждого элемента должна появляться подсказка с номером. после ввода каждого числа нажмите enter a[1]= 12 a[2]= 0 a[3]= 3 a[4]= -1 a[5]= 0 сумма элементов массива = 14

type
 Massiv= array[1..6] of integer;

var i,x,sum:integer;

for i=1 to 5 do begin
writeLn("ChisloMassiva-"i)  -вывод подсказки с номером присваиваемого элемента
ReadLn (x);
Massiv[i]:=x;
Sum:=sum+x;
end;
writeLn("Summa= "sum)