Определение принадлежности точки с координатами (х,у) заштрихованной плоскости - Pascal

Помогите пожалуйста Пусть D – заштрихованная часть плоскости. Нужно определить, принадлежит ли точка с координатами (х, у) плоскости D

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

var x, y: Real;
begin
  Write('x y: '); ReadLn(x,y);
  WriteLn((Abs(y)<=x/2+1) and (x<=0) or (x>0) and (Sqr(x)+Sqr(y)<=1));
end.

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

Объявляются переменные x и y типа Real.
Выводится сообщение x y: и пользователь вводит значения для переменных x и y с помощью функции ReadLn.
Вычисляется логическое выражение и выводится результат:
- Проверяется, выражение (Abs(y)<=x/2+1), если оно верно, то выражение истинно, иначе ложно.
- Проверяется, условие (x<=0), если оно верно, то выражение истинно, иначе ложно.
- Проверяется, выражение (x>0) and (Sqr(x)+Sqr(y)<=1), если оно верно, то выражение истинно, иначе ложно.
Результат вычислений выводится с помощью функции WriteLn.