Пожалуйста посчитайте, плиз!В массиве B, содержащем 10 положительных и отрицательных целых чисел, вычислить произведение отрицательных элементов. Элементы массива вводить с клавиатуры.

begin
  var b:=ReadArrInteger(10);
  Writeln('П = ',b.Where(t->t<0).Aggregate(BigInteger(1),(i,j)->i*j))
end.


342345 -23423 23423 -24234 -65534 -8632 18 0 -8563225 4235
П = -2749685894248606294581600