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

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