Даны числа если они положительны то выдать их сумму если отрицательны то выдать…

var n,i,a,countPlus,countMinus,sum: integer; beginwriteln ('Введите колличество чисел'); readln (n); for i: =1 to n dobeginreadln (a); if (a>0) thenbeginsum: =sum+a; countPlus: =countPlus+1endelsebegincountMinus: =countMinus+1; sum: =sum-a; end; end; if (countPlus<>n) and (countMinus<>n) then writeln ('Вы ввели отрицательные и положительные числа вместе'); if (countPlus=n) then writeln (sum); if (countMinus=n) then writeln (sum); end.