Сделать в 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.