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

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 (xgt;0) and (ygt;0) then
     writeln ('Точка находится в первой четверти'); 
   if (xlt;0) and (ygt;0) then
     writeln ('Точка находится во второй четверти'); 
   if (xlt;0) and (ylt;0) then
     writeln ('Точка находится в третей четверти'); 
   if (xgt;0) and (ylt;0) then
     writeln ('Точка находится в четвертой четверти');
  end; 
end.