Пример кода на Pascal:

program MaxNegativeNumber;
var
i, n: integer;
maxNegative: integer;
begin
maxNegative := -1; // Инициализируем переменную максимального отрицательного числа
// Ввод количества элементов последовательности
writeln('Введите количество элементов последовательности:');
readln(n);
// Ввод последовательности и поиск максимального отрицательного числа
writeln('Введите элементы последовательности:');
for i := 1 to n do
begin
var x: integer;
readln(x);
if (x < 0) and (x < maxNegative) then
maxNegative := x;
end;
// Вывод результата
if maxNegative = -1 then
writeln('В последовательности нет отрицательных чисел')
else
writeln('Наибольшее из всех отрицательных чисел: ', maxNegative);
end.

Этот код позволяет пользователю ввести последовательности чисел и находит наибольшее из всех отрицательных чисел в этой последовательности.