Написать программу для вычисления суммы для 5 элементов массива, ввод массива с клавиатуры ! не игнорить

Var a: array [1..5] of integer;

i,sum: integer;

begin

sum := 0;

for i:=1 to 5 do

begin

WriteLN('Введите элемент массива');

ReadLN(a[i]);

end;

for i := 1 to 5 do

sum := sum + a[i];

write(sum);

end.

===== PascalABC.NET =====

begin

   var a := ReadArrReal('Введите 5 чисел:', 5);

   Print('Их сумма равна', a.Sum)

end.