Найти произведение всех элементов массива вещественных чисел, меньших заданного числа. размерность массива –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.