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.
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