Проверить истинность высказывания: «Точка с координатами (x, y) лежит в первой или третьей координатной четверти»

Program Boolean28;
Var
x,y:Real;
Begin
ReadLn(x,y);
WriteLn(((x >= 0) And (y >= 0)) Or ((x <= 0) And (y <= 0)));
end.

автор: Sklyarov Sergej a.k.a. S9