program SumOfNegativeNumbers;

var
numbers: array[1..10] of Integer;
i, sum: Integer;

begin
sum := 0;

// Вводим последовательность чисел
writeln('Введите последовательность чисел:');
for i := 1 to 10 do
begin
write('numbers[', i, '] = ');
readln(numbers[i]);
end;

// Считаем сумму отрицательных элементов
for i := 1 to 10 do
begin
if numbers[i] < 0 then
begin
sum := sum + numbers[i];
end;
end;

// Выводим результат
writeln('Сумма отрицательных элементов: ', sum);

end.