Дано 2 массива определенной длины. Выполнить разделения и переформирование массива на два - массив четных чисел и массив нечетных чисел

// PascalABC.NET 3.2, сборка 1457 от 29.05.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  var b:=a.Where(x->x.IsEven).ToArray; b.Println;  var c:=a.Where(x->x.IsOdd).ToArray; c.Printlnend.Примерn= 17-21 2 32 -38 -42 20 -46 47 -1 17 8 -31 10 -12 -46 -50 132 32 -38 -42 20 -46 8 10 -12 -46 -50-21 47 -1 17 -31 13