Требует помощь ваша.

Question

Составьте программу, определяющую, принадлежит ли точка с координатами (X, Y) множеству точек плоскости, изображенному на рисунке:

вот я начал но у меня не все числа подходят, помогите пожалуйста:
begin
Writeln('Введите x и y');
readln(x,y);
if y<=x+1
then
if (x>=0) and (x<=0)
then
writeln('Да! ')
else
writeln('Нет! ');
readln;

end. Требует помощь ваша.

Михаил Шошин · Accepted Answer

uses crt;
var x,y:real;
begin
Write('Введите x и y --> ');
readln(x,y);
if (y>x+1) and (y>1) and (x>0) or
(y<=x+1) and (y<0) and (x<0)
then
writeln('Да! ')
else
writeln('Нет! ');
readln;
end.