Определить, принадлежит ли точка заданной области - Pascal (80889)

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

Определить принадлежит ли точка заданная координаты x,y некоторой области даны действительные числа x,y координаты точки определить принадлежит ли точка (x,y) области заштрихованой на рисунке

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

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

var x,y:real;
begin
writeln('Введите координаты точки');
readln(x,y);
if(x*y<=0)and(abs(y)<=1.5*abs(x)+3) then write('принадлежит')
else write('не принадлежит')
end.

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

Объявляются переменные:
- x (тип real)
- y (тип real)
Выводится сообщение пользователю: Введите координаты точки.
Считываются значения координат точки с клавиатуры и сохраняются в переменные x и y.
Проверяется выполнение условия:
- Если x*y меньше или равно нулю и abs(y) меньше или равно 1.5*abs(x) + 3, то выводится сообщение принадлежит.
- Иначе выводится сообщение не принадлежит.