Найти произведение элементов одномерного массива, находящихся в диапазоне от 4 до 10. Массив сгенерировать с помощью генератора случайных чисел в диапазоне от 2 до 42. Количество элементов в массиве 35.

// PascalABC.NET 3.3begin  var a:=ArrRandom(35,2,42); a.Println;  Writeln('П=',a.Where(x->(x>=4)and(x<=10)).Aggregate(1,(p,x)->p*x));end.Пример:34 16 9 17 4 11 34 26 30 17 28 18 6 31 38 20 30 35 29 40 21 38 30 10 5 9 15 12 28 5 23 6 30 30 37П=2916000