// PascalABC.NET
begin
var n := ReadInteger('Число элементов массива:');
var a := ReadArrReal('Введите элементы массива:', n);
Print('Сумма равна', a.Sum)
end.
