Попадание точки в различные части мишени - Pascal

Формулировка задачи:

Имеется задача. Мишень состоит из 2-ух сторон, если попасть в верхнюю правую часть прописывается в ответе n:=1, если в нижнюю левую часть то n:=2, если промазал то n:=0 Вот схематически мишень. Исправьте пожалуйста ошибки и дополните

program p1;
var x,y:real;
     n:integer;
begin
readln(x,y);
if sqr(x) + sqr(y) <= 1 then
if y>=0 then n:=1 else n:=2 
else n:=0
writeln(n);
end.

У меня в коде идет выборка верхней или нижней части, не могу отобразить левые\правые части.

Решение задачи: «Попадание точки в различные части мишени»

Листинг программы

if (sqr(x) + sqr(y) <= 1)and(y*x>=0 )then
if y>=0 then n:=1 else n:=2
else n:=0;

Объяснение кода листинга программы

Проверяется условие: значение переменной x в квадрате плюс значение переменной y в квадрате меньше или равно 1, и значение переменной y умножить на значение переменной x больше или равно 0.
Если условие выполняется, то:
- Если значение переменной y больше или равно 0, переменная n принимает значение 1, иначе переменная n принимает значение 2.
Если условие не выполняется, переменная n принимает значение 0.