Подсчитать сумму всех элементов кратных 2 , в массиве из 10 чисел

// PascalABC.NET 3.2, сборка 1345 от 24.11.2016
// Внимание! Если программа не работает, обновите её версию!
begin
  var a:=ArrRandom(10,1,30); a.Println;
  Writeln('Сумма четных чисел равна ',a.Where(x->x.IsEven).Sum)
end.

Пример
27 11 27 26 20 17 26 20 3 25
Сумма четных чисел равна 92