составьте алгоритм с условием х+у<0. Спасибо за помощь!!!

program raf105;

var

 x,y: integer;

begin

 write('x = ');

 readln(x);

 write('y = ');

 readln(y);

 if x+y < 0 then writeln(x+y,' Меньше нуля')

   else writeln(x+y,' Больше или равно нулю');

end.

PascalABC