Дан одномерный массив А из 12-ти элементов. Найти суммы отрицательных элементов и суммы положительных элементов

Program summu;

const

n=12;

var

A:array[1 ... n] of integer;

i, sot, spo:integer;

begin

for i:=1 to n do {заполнение

readln (A[i]); массива}

for i:=1 to n do {перебор элементов массива}

begin

if A[i]>0 then spo:=spo+A[i]; {отбор и суммирование положительных элементов}

if A[i]<0 then sot:=sot+A[i]; {отбор и суммирование отрицательных элементов}

end;

writeln ('сумма положительных элементов = ', spo,', сумма отрицательных элементов = ', sot); {вывод на экран значений сумм}

end.