Простые задачи на последовательность. Посчитать сумму положительных и отрицательных чисел в последовательности - Pascal

Формулировка задачи:

1. Написать программy, которая примет последовательность n(любых чисел, n также вводится) и посчитает сумму положительных и отрицательных чисел в последовательности. Желательно простыми конструкциями. Срочно нужно в течении часа. Заранее спасибо.

Решение задачи: «Простые задачи на последовательность. Посчитать сумму положительных и отрицательных чисел в последовательности»

Листинг программы

uses crt;
var n,c,i,sp,so: integer;
begin
sp:=0; so:=0;
write('n='); readln(n);
for i:=1 to n do
    begin
    write('-->'); readln(c);
    if c>0 then sp:=sp+c;
    if c<0 then so:=so+c;
    end;
writeln('Сумма положительных ',sp);
writeln('Сумма отриыательных ',so);
readln;
end.

Объяснение кода листинга программы

В начале кода подключается библиотека crt, которая используется для работы с числами с плавающей точкой.
Затем определяются переменные n, c, i, sp и so, которые будут использоваться в коде.
Далее происходит чтение значения переменной n с помощью функции readln.
Затем начинается цикл for, который будет выполняться от 1 до n.
Внутри цикла выводится метка -->, после чего считывается значение переменной c с помощью функции readln.
Далее проверяется, является ли значение c положительным или отрицательным с помощью условных операторов if. Если значение c положительное, то к переменной sp добавляется значение c, а если отрицательное, то к переменной so добавляется значение c.
После завершения внутреннего цикла выводится значение переменной sp с помощью функции writeln.
Затем выводится значение переменной so с помощью функции writeln.
Код завершается вызовом функции readln для чтения последнего ввода пользователя.