Определить принадлежность точки заданной области - PascalABC.NET

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

Составить программу, определяющую принадлежит ли точка с координатами (x; y) заштрихованной части плоскости. Координаты точки ввести с клавиатуры.

Решение задачи: «Определить принадлежность точки заданной области»

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

var r,x,y:real;
begin
write('Радиус r=');
readln(r);
writeln('Координаты точки');
readln(x,y);
if(x*y>=0)and(x*x+y*y<=r*r)and(abs(y)>=abs(x))
then write('Принадлежит')else write('Не принадлежит')
end.

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

В начале кода объявляются три переменные типа real: r, x, y.
Затем пользователю предлагается ввести значение переменной r с помощью функции readln().
Далее пользователю предлагается ввести координаты точки x и y с помощью функции readln(x, y).
С помощью условного оператора if проверяется принадлежность точки заданной области по трём условиям:
- Первое условие: произведение x и y неотрицательно.
- Второе условие: сумма квадратов x и y не превышает квадрат переменной r.
- Третье условие: модуль y больше или равен модулю x.
Если все условия выполняются, то выводится сообщение Принадлежит, в противном случае выводится сообщение Не принадлежит.