вывести на экран 10 случайных чисел в диапазоне от -100 до 100 и найдите кол-во четных и не четных чисел. Pascal

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(10,-100,100); a.Println;  var n:=a.Where(x->x.IsEven).Count;  Writeln('Четных- ',n,', нечетных- ',10-n)end.Пример44 79 -39 29 -81 -50 33 -96 52 -47Четных- 4, нечетных- 6