Напишите программу, которая для заданной точки с координатами (х,у) определяет, где она расположена: на какой оси или в какой координатной четверти

Pascal

 var   
x,y : integer;    
begin 
readln (x,y); 
if (x=0) or (y=0)
then   
begin   
if x = 0 then
     writeln ('Точка лежит на оси y');   
if y = 0 then
     writeln ('Точка лежит на оси x')'   
end 
else 
 begin 
   if (x>0) and (y>0) then
     writeln ('Точка находится в первой четверти'); 
   if (x<0) and (y>0) then
     writeln ('Точка находится во второй четверти'); 
   if (x<0) and (y<0) then
     writeln ('Точка находится в третей четверти'); 
   if (x>0) and (y<0) then
     writeln ('Точка находится в четвертой четверти');
  end; 
end.