Вводится 4 числа, надо узнать есть ли среди них отрицательные? Паскаль с циклом for

var

haveNegative : boolean;

x, i : integer;

begin

haveNegative := false;

for i:= 1 to 4 do

   begin

   readln(x);

   if x < 0 then

       haveNegative := true;

   end;

if haveNegative then

   writeln('Отрицательное число есть!')

else

   writeln('Отрицательного числа нет!');

end.

можно назвать - собака 

или 

агент @ мail.ru 

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