найдите сумму произведений и среднее значение элементов массива

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;  Writeln('Сумма = ',a.Sum,', произведение = ',      a.Aggregate(BigInteger(1),(p,q)->p*q),      ', среднее = ',a.Average)end.Примерn= 1749 -31 46 61 -87 18 -64 -48 66 64 -37 56 43 -52 13 28 -78Сумма = 47, произведение = -11393046129075182950686916608, среднее = 2.76470588235294