Дано 4 числа. Среди чисел есть отрицательные? посчитайте решить эту задачу в паскаль через if-then-else

var

a,b,c,d : real;

haveNegative : boolean;

begin

haveNegative := false;

readln(a,b,c,d);

if a < 0 then

haveNegative := true;

if b < 0 then

haveNegative := true;

if c < 0 then

haveNegative := true;

if d < 0 then

haveNegative := true;

if haveNegative then

writeln('Cреди данных чисел есть отрицательное!')

else

writeln('Среди данных чисел отрицательного нет!');

end.