Написать программу одномерного массива в нем 10 элементов необходимо вывести на экран четные отрицательные числа

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(10,-50,50); a.Println;
  Write('Четные отрицательные: ');
  a.Where(x->x.IsEven and (x<0)).Println
end.

Пример
29 43 4 -21 -28 -16 -46 7 5 13
Четные отрицательные: -28 -16 -46