Сделать в Pascal ABC. Найти сумму первых 5-ти элементов одномерного массива

Program element_massiva5

var

Sum, i : integer;

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

begin

Sum : = 0;

writeln ('введите 15 чисел массива') ;

for i:=1 to 15 do

begin

readln (a[i]) ;

end;

Sum:=a[1]+a[2]+a[3]+a[4]+a[5];

Writeln (' Ответ: ', Sum) ;

end.