Заполнить массив из 10 целых чисел и вывести на экран в строку с пробелами. Найти сумму элементов массива и вывести результат на экран

Program massiv;

const

n=10;

var

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

i, sum:integer;

begin

sum:=0;

for i:=1 to n do {Ввод значений элементов массива

readln (a[i]); через Enter}

for i:=1 to n do

begin

write (a[i],' '); {Вывод значений элементов массива в строку через пробел}

sum:=sum+a[i]; {Суммирование значений элементов массива}

end;

writeln ('Сумма элементов массива = ', sum); {Вывод на экран значения суммы элементов массива}

end.