Задан одномерный массив из N чисел. Сосчитать:сумму,творенье и среднее арифметическое

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программка не работает, обновите версию!

begin

  var N:=readinteger('Введите N=');

  var mas:=ArrRandom(N,-99,99); mas.Println;

  Writeln('суммa=',mas.Sum);

  Writeln('среднее арифметическое=',mas.Average);

  Writeln('творенье=',mas.Aggregate(biginteger(1),(x,y)-gt;x*y));

end.