Дано N произвольных чисел найти сумму положительных чисел в одну перемену и сумму отрицательных чисел в другую. Пожалуйста помогите! Решать программу '' пока''. Заранее спасибо

И где тут таинственное "пока" ?

cgfcb,j

спасибо ,я если честно не знаю

program example;var plus, minus, n, a, i: integer;beginplus := 0;minus := 0;writeln('Введите кол-во чисел.');readln(n) ;for i := 1 to n dobeginwriteln('Введите число');readln(a);if a > 0 then plus := plus + aelse minus := minus + a;end;writeln(plus);writeln(minus);end.