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

// PascalABC.NET 3.2, сборка 1344 от 22.11.2016// Внимание! В других версиях языка работа не гарантируется!begin  var a:=ArrRandom(10,1,10); a.Println;  Writeln('S=',a.Where(x->x.IsEven).Sum)end.Пример8 7 5 4 3 8 2 2 6 7S=30