Вводится 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.

а)какое свойство указывает на назначение объекта: ? ответ: являеться носителем информации

б)какое свойство указывает на форму объекта? ответ: круглый

var

  n,i,a: integer;

begin

  readln(n);

  for i: =1 to n do

  begin

  read(a);

  write(abs(a),' ');

end;

end.