Даны числа x, y.
Program Boolean27;
Var
x, y: Real;
Begin
ReadLn(x, y);
WriteLn(((x <= 0) And (y >= 0)) Or ((x <= 0) And (y <= 0)));
end.
Даны числа x, y.
Program Boolean27;
Var
x, y: Real;
Begin
ReadLn(x, y);
WriteLn(((x <= 0) And (y >= 0)) Or ((x <= 0) And (y <= 0)));
end.