begin
  var n := 12;
  var a: array of integer;
  SetLength(a, n);
  
  var Sum := 0;
  
  for var i := 0 to n - 1 do
  begin
    a[i] := Random(-5, 5);
    Print(a[i]);
    if a[i] < 0 then Sum += a[i]
  end;
  Println;
  Print('Сумма отрицательных элементов:', Sum)
end.