Дан массив 1,4,5,7,8 Найти сумму всех элементов В Pascal ABC

program zz1;

const n = 5; / / задаем количество элементов в массиве

m:array [1 ... n] of integer = (1, 4, 5, 7, 8);

var i, k:integer; / / задаем переменные целого типа

begin

k:=0; / / задаем начальное значение для суммы

for i:=1 to n do / / организуем цикл, в котором переберем все элементы массива

k:=k + m[i]; / / получаем сумму, добавляя к ней очередной элемент из массива

write (' сумма заданных элементов массива = ', k); / / выводим ответ

end.