помогите ПРОШУУУУУУУ

Напишите программу(Паскаль) нахождения суммы элементов массива А[1:5], заполненного числами 2, 6, 8, 12, 18.

for var i:=1 to aN do - здесь надо aN на 5 исправить. поспешил.

повторно объявленный идентификатор а

надо еще i: integer := 0; в вар записать, забыл

var    a: array [1..5] of integer := (2,6,8,12,18);   sum: integer := 0;begin writeln('Элементы массива a: '); for var i:=1 to aN do   write(a[i],' ');   sum = sum + a[i]; writeln;writeln('Сумма элементов: ', sum);end.