1. дано n чисел. Вычислить сумму отрицательных чисел.

program sum; // Заглавие программы
var
a: array of integer; // Творенье динамического массива
n, i,k: integer; // Создание целочисленных переменных 
begin
  k:=0;
  read(n); // Читаем n - количество чисел
  SetLength(a,n); // Устанавливаем длину массива
  for i:=0 to length(a)-1 do // В цикле проходимся и записываем данные в массив
  begin
    readln(a[i]); 
    if a[i]lt;0 then // Если значение переменной массива lt; 0, то суммируем её с счётчиком
    k:=k+a[i];
  end;
  println(k); // Выводим сумму отрицательных знач.

end.