Составте программу в pascal ABC

Боже мой, это что за быдлокод выше? !

program test;

var

    number: integer;
    positive_sum: integer;
    negative_sum: integer;
    i: integer;

begin

    positive_sum := 0;
    negative_sum := 0;

    writeln('Enter 6 numbers: ');

    for i := 1 to 6 do
    begin

        read(number);

        if number > 0 then

            positive_sum := positive_sum + number

        else

            negative_sum := negative_sum + number;

    end;

    writeln('Positive numbers sum: ', positive_sum);
    writeln('Negative numbers sum: ', negative_sum);

end.

Гоша программер, не дай Бог мне твой код приснится. Это что-то из Матрицы...

Прям уважением проситель светится, не потрудился даже перепечатать - испортите любезные глаза, но расшибитесь домашку мне сделайте

Полностью согласен с Евгением)

вторая
var x,s,s1,i:integer;
begin
s:=0; s1:=0;
for i:=1 to 6 do
begin
readln(x);
if x>=0 then s:=x+s else s1:=x+s1;
end;
writeln(s); writeln(s1);
end.

Держи код второй программы, на первую времени нет, у самого уроки)

Описание: вводишь числа через запятую и программа вычисляет суммы отрицательных и положительных чисел)

program home_work_2;
var
a,s,d,f,g,h,q,w:integer;
begin
q := 0;
w := 0;
write('enter numbers: ');
read(a,s,d,f,g,h);
if a < 0 then q := q + a else w := w + a;
if s < 0 then q := q + s else w := w + s;
if d < 0 then q := q + d else w := w + d;
if f < 0 then q := q + f else w := w + f;
if g < 0 then q := q + g else w := w + g;
if h < 0 then q := q + h else w := w + h;
writeln('Numbers + : ', w);
writeln('Numbers - : ', q);
readln;
end.