Массив состоит из 20 целых положительных и отрицательных чисел, каждое из которых находится в пределах от 2 до 12. Вывести

program summ;var a: array [1..20] of integer;znak, sn, sp: integer;

beginrandomize;sn:= 0; sp:= 0;for i: integer:= 1 to 20 do beginznak:= random(2) + 1;a[i]:= random(11) + 2;if znak = 1 then a[i]:= -a[i];write(a[i] : 4)end;

writeln();

for i: integer:= 1 to 20 do beginif a[i] < 0 then beginwrite(a[i] : 4);sn:= sn + a[i]endend;

writeln();for i:integer := 1 to 20 do beginif a[i] > 0 then beginwrite(a[i] : 4);sp:= sp + a[i]endend;writeln();writeln(\' Сумма положительных чисел: \', sp);writeln(\' Сумма отрицательных чисел: \', sn);

if abs(sn) > sp then write(\' Модуль суммы отрицательных чисел больше.\');if abs(sn) < sp then write(\' Модуль суммы положительных чисел больше.\');if abs(sn) = sp then write(\' Модули сумм равны.\') end.