Pascal abc net дан массив , состоящий из n элементов, элементы массива -произвольные целые числа , распечатать элементы в 2 строки . в 1 строке элементы с не четными индексами , а во 2 строке элементы с четными индексами

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018Внимание! Если программа не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 var s := a.Partition((v, i) -> i.IsEven);

 s[0].Println;

 s[1].Println;

end.

n= 1024 31 -29 -21 32 23 -17 34 16 -2524 -29 32 -17 1631 -21 23 34 -25