Пожалуйста, очень срочно!
Дан массив А из 20 элементов
Найти сумму отрицательных элементов массива

// PascalABC.NET 3.3, сборка 1611 от 06.01.2018// Внимание! Если программа не работает, обновите версию!beginWrite('Исходный массив: ');var a:=ArrRandom(20,-30,30);a.Println;Writeln('Сумма отрицательных элементов равна ', a.Where(t -> t < 0).Sum);end.Пример:Исходный массив: 26 20 10 -21 -29 18 -16 -24 -3 3 6 -12 11 21 -21 2 29 0 4 2Сумма отрицательных элементов равна -126

Program n1;const n=20;var a: array[1..n] of integer;sum,i: integer;beginwrite('массив: ');for i:=1 to n do begina[i]:=random(21)-10;if a[i]<0 then sum:=sum+a[i];write(a[i],' ');end;writeln;write('сумма отрицательных: ',sum);end.