Написать программу. Дан массив целых чисел состоящий из 10 ячеек. Найти произведение чисел больше 15 и вывести на экран.

PascalABC.NET:begin  var a:=ArrRandom(10,1,30).Println;  Writeln('P=',a.Where(x->x>15).Aggregate(1.0,(p,x)->p*x))end.Пример:3 10 23 22 4 7 30 24 21 8P=7650720