program PrintNegativeNumbers;
var
arr: array[1..10] of integer;
i: integer;
begin
// Вводим последовательность чисел
writeln('Введите последовательность из 10 чисел:');
for i := 1 to 10 do
begin
write('Введите число ', i, ': ');
readln(arr[i]);
end;

// Выводим отрицательные числа
writeln('Отрицательные числа в последовательности:');
for i := 1 to 10 do
begin
if arr[i] < 0 then
begin
writeln(arr[i]);
end;
end;
end.