хелп Составьте программу вычисления в массиве A(15) произведения нечетных элементов. Сделайте программу на паскале

--- PascalABC.NET 3.6.3 ---

begin

 var A := ArrRandom(15, -99, 99);

 A.Println;

 A.Where(p -> p mod 2 <> 0).Product(x -> BigInteger(x)).Println;

end.

PascalABC.NETbegin ArrRandom(15, -99, 99).Println.Product(x -> x.IsOdd?BigInteger(x):1).Print end.

Пример работы: