С клавиатуры вводится 10 чисел. Найти произведение тех чисел, которые попадают на интервал (5, B), В граница интервала (вводим с клавиатуры).​

PascalABC.NET:

##var a := ReadArrInteger('Введите 10 чисел:', 10);var B := ReadInteger('Введите B:');a.Where(x → x in 6..(B-1)).Product.Print