Моделирование суммирующей машины Паскаля.

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

Паскаль АВС

Var ar:array[1 ... 5] of integer;

i, k1, k2:integer;

begin;

for i:=1 to 5 do

begin;

readln (ar[i]);

if ar[i]<0 then k1:=k1+ar[i] else k2:=k2+ar[i];

end;

writeln ('Сумма положительных:', k2);

write ('Сумма отрицательных:', k1);

end.