Как определить, принадлежит ли точка M(x, y) заштрихованной области?

Question

[Ivan Moor]

Буду очень признателен, спасибо.

Answer 1

[Ivan Moor]

Что не так
var x,y:real;
begin
WriteLn ('Введите координаты точки x, y');
ReadLn (x, y);
WriteLn ('Точка с координатами');
if (x<0)and(y>0)and(y-x<=1)
then
WriteLn('Да')
else
WriteLn('Нет')
End.