// PascalABC.NET

begin

 var n := ReadInteger('Число элементов массива:');

 var a := ReadArrReal('Введите элементы массива:', n);

 Print('Сумма равна', a.Sum)

end.