Найти произведение всех элементов массива вещественных чисел, меньших заданного числа. Размерность массива –10. Заполнение массива осуществить случайными числами от 50 до 100.

begin    var n := ReadlnReal('n =');    var arr := ArrRandomReal(10, 50, 100).Println;    arr.Where(t -> t < n).Aggregate(1.0, (p,x) -> p * x).Println;end.