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

Question

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

вот я начал но у меня не все числа подходят, помогите пожалуйста:
begin
Writeln('Введите x и y');
readln(x,y);
if y=0) and (x

Михаил Шошин · 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.