Сформировать ряд из 89 вещественных элементов заданных случайным образом из диапазона 0 40 с точностью до тысячных вывести на экран элементы ряда найти среднее арифмитическое чисел ряда меньших значений меридианы диапазона

PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var n:=89;
  var a:=SeqRandom(n,0,40000).Select(t->t/1000).ToArray;
  a.Println.Sorted.Take(n div 2).Average.Println
end.