Определить в какую из областей (I или II) попадает точка с заданными координатами (х,у) Через программу Паскаль Абц

program z1; var x,y:real; begin writeln('введите координаты точки (x;y), при у неотрицательный'); readln(x,y); if x>0 then writeln('точка находится в I четверти'); if x<0 then writeln('точка находится вo II четверти'); if x=0 then writeln('точка находится на оси ОY'); if y=0 then writeln('точка находится на оси ОХ'); if (x=0)and(y=0) then writeln('точка находится в начале координат'); end.