Определить в какую из областей (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.