Определить, принадлежит ли точка (x;y) заштрихованной области - Turbo Pascal (29278)

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

Помогите написать программу определения принадлежности точки М(x,y) заштрихованной области изображенной на рисунке( уравнение окружности x2+y2=r2)

Решение задачи: «Определить, принадлежит ли точка (x;y) заштрихованной области»

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

uses crt;
var x,y:real;
begin
clrscr;
writeln('Введите координаты точки');
readln(x,y);
if(x*x+y*y<=4)and(((x<=0)and(y<=0))or((x<=1)and(y>=0)and(y>=-x)))
then write('Точка принадлежит заштрихованной области')
else write('Точка не принадлежит заштрихованной области');
readln
end.

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

В начале кода подключается библиотека crt, которая является стандартной для языка Turbo Pascal.
Далее объявляются две переменные типа real: x и y. Они будут использоваться для хранения координат точки.
С помощью функции clrscr() экран очищается от предыдущих данных.
Затем выводится сообщение 'Введите координаты точки', используя функцию readln(). Эта функция считывает введенные пользователем данные и сохраняет их в соответствующих переменных x и y.
Далее идет проверка условия: если сумма квадратов x и y меньше или равна 4, и если точка находится в пределах от -1 до 1 по горизонтали и от -1 до 1 по вертикали, то точка принадлежит заштрихованной области.
Если условие выполняется, то выводится сообщение 'Точка принадлежит заштрихованной области'. В противном случае выводится сообщение 'Точка не принадлежит заштрихованной области'.
Наконец, с помощью функции readln() с экрана считывается подтверждение ввода.