Написать программу, которая определяет, к какой четверти плоскости принадлежит точка с координатами х, у? Паскаль

 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.

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018// Внимание! Если программа не работает, обновите версию!begin  var (x,y):=ReadReal2('Введите  координаты точки x и y:');  if x=0 then begin    if y=0 then Writeln('Точка лежит в начале координат')    else Writeln('Точка лежит на оси ординат (y)');    exit    end  else    if y=0 then begin      Writeln('Точка лежит на оси абсцисс (х)');      exit      end;  if x>0 then    if y>0 then Writeln('Точка принадлежит I четверти')    else Writeln('Точка принадлежит IV четверти')  else    if y>0 then Writeln('Точка принадлежит II четверти')    else Writeln('Точка принадлежит III четверти')end.ПримерВведите  координаты точки x и y: 12.4 -7Точка принадлежит IV четверти