Составьте программу которая заполняет массив b [1...8] случайными целыми числами в диапазоне от 1 до 10 и находиь произведение элементов с нечетными значениями и количество элементов с четными значениями

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(8,1,10); a.Println;  Writeln('Произведение нечетных элементов ',    a.Where(x->x.IsOdd).Aggregate(1,(x,y)->x*y));  Writeln('Количество четных элементов ',    a.Where(x->x.IsEven).Count)end.Пример9 10 10 5 8 3 5 2Произведение нечетных элементов 675Количество четных элементов 4