заданы 2 одномерных числовых массива X и Y длинной n. Сформировать из них массив Z, вычисляя каждый его элемент как разность соответствующих элементов первого и второго массива . Вычислить сумму элементов массива Z и определить ее знак . Вывести на экран все три массива и ответ на вопрос задачи

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!begin  var n:=ReadInteger('n=');  var x:=ArrRandom(n,-5,25); x.Println;  var y:=ArrRandom(n,-5,25); y.Println;  var z:=x.Zip(y,(p,q)->p-q).ToArray; z.Println;  var s:=z.Sum;  var c:=s<0 ? 'отрицательный' : s=0 ? 'отсутствует' : 'положительный';  Writeln('Сумма равна ',s,', знак суммы ',c)end.Примерn= 132 -5 24 3 23 22 -3 6 -3 -2 9 25 817 9 11 8 0 -2 -2 2 25 19 16 21 -4-15 -14 13 -5 23 24 -1 4 -28 -21 -7 4 12Сумма равна -11, знак суммы отрицательный