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

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

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

Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!

Загрузить картинку