Написать программу в паскале: Даны целое n>0 и последовательность из n вещественных чисел, среди которых есть хотя

program zz1;

var a,  n, i, max:integer; // задаем переменные целого типа

begin

write(\' введите n \');  // вводим с клавиатуры число

read(n);  

max:= -10000; // задаем начальное значение для максимального

for i:=1 to n do

begin

read (a);  // вводим очередное число последовательности

if a < 0 then if a > max then max:= a; // проверяем, если число больше максимального, то записываем его в максимальное

end;

write (\' максимальное число среди отрицательных чисел последовательности= \', max); // выводим ответ

end.