Pascal.дана последовательность чисел .вывести на экран суммы положительных и отрицательных чисел данной последовательности.

//Pascal ABC.NET 3.1 сборка 1219 Const  n=10; Begin  var ar:=ReadArrInteger(n);  writeln('Сумма положительных=',ar.Where(x -> x>0).sum);  writeln('Сумма сумма отрицательных=',ar.Where(x -> x<0).sum); end. Пример ввода: 1 -2 3 4 -5 -6 7 8 9 10 Пример вывода: Сумма положительных=42 Сумма сумма отрицательных=-13