begin
  var a := new integer[12];
  
  for var i := 0 to a.High do
  begin
    a[i] := Random(-10, 10);
    Print(a[i])
  end;
  
  var Sum := 0;
  
  for var i := 0 to a.High do
    if a[i] < 0 then Sum += a[i];
    
  Println;
  Write($'Сумма отрицательных элементов массива: Sum = {Sum}')
end.