Составьте алгоритм с условием х+у< 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.