Составьте программу которая заполняет массив а [ 1..10] случайными целыми числами в диапазоне от -10 до 30 и вычисляет сумму отрицательных элементов массива. выводит на экран исходный массив и значение суммы

PascalABC.NET 3.3

begin
  var a:=ArrRandom(10,-10,30);
  a.Println;
  writeln(a.Where(x->x<0).Sum);
end.

Пример:
27 8 19 -2 26 2 16 -10 11 -9
-21

Const n=10;var a,i:integer; mas:array [1..n] of integer; begin for i:=1 to n do   mas[i]:=random(30)-10;  a:=0;   for i:=1 to n do    if mas[i]<0 then   a:=a+mas[i];   writeln('sum',a);   for i:=1 to n do   write(mas[i]:4);   end.