Паскаль: даны действительные числа Х1, У1

[kempers]

Помогите, очень срочно нужно решение задачки.
Сам не успеваю((( Буду очень благодарен=)

даны действительные числа Х1, У1. определить имя оси (или осей), или номер четверти,которой принадлежит точка с координатами (Х1, У1)

[dr.Jekill]

Код: Выделить всё

var x1,y1:real;beginwriteln('X1-> ');readln(x1);writeln('Y1-> ');readln(y1);if x1=0 then writeln('Точка лежит на оси асцисс.');if y1=0 then writeln('Точка лежит на оси ординат.');if (x1>0) and (y1>0) then writeln('Точка лежит в первой четверти.');if (x1>0) and (y1