Найдите суммы положительных и отрицательных чисел из заданных n чисел. Определите наибольшее из сумм по абсолютной величине

program zz1;

var n, s1, s2, i, a:integer; / /задаем переменные

begin

write ('введите количество чисел '); / /вводим количество чисел

read (n);

for i:=1 to n do / /организуем цикл

begin

read (a); / /вводим число

if a>0 then s1:=s1+a else s2:=s2+a; / /проверяем, если оно положительное, то прибавляем его в одну сумму, если нет, то в другую

end;

if abs (s1) >abs (s2) / /проверяем, если по модулю первая сумма больше, то выводим один ответ, если нет, то другой

then write ('больше сумма положительных чисел ') else write ('больше сумма отрицательных чисел ');

end.