Паскаль.Заполнить одномерный массив случайными числами от -70 до 30,посчитать сумму отрицательных элементов массива и вычислить её абсолютную величину.

var a:array[1..1000] of integer; n, i, suma:integer; begin write('введите количество чисел массива '); readln(n); suma:=0; for i:=1 to n do begin a[i]:=random(101)-70; if(a[i]<0) then suma:=suma+a[i]; end; write('массив '); for i:=1 to (n-1) do write(a[i],', '); writeln(a[n],' '); writeln('сумма отрицательных элементов ',abs(suma)); end.