Нужно написать в паскале ABC нужна помощь

Question

Нужно написать в паскале ABC нужна помощь

---

Answer 1

{если точка лежит на оси координат, то считается, что она находится в правой/верхней полуплоскости}

 var a,b,c,d:integer;
begin
 read(a,b,c,d);
 if ((a<0) = (c<0)) and ((b<0) = (d<0))<br>   then write('YES') else write('NO')
end.