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

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.