Напишите в паскале программу которая находит наибольшее отрицательное число

var
n,i,a,max:Integer;
begin
max:=-36000;
WriteLn('Введите количество чисел');
ReadLn(n);
Writeln('Вводите числа');
for i:=1 to n do
readln(a);
if (a<0) and (a>max)then max:=a;
Writeln('Наибольшее отрицательное число = ', max);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.