Помогите пожалуйста составить программу в паскале. Даны действительные числа x,y....

Question

Помогите пожалуйста составить программу в паскале. Даны действительные числа x,y. Определить, принадлежит ли точки с координатами x, y заштрихованной
части области.

---

Answer 1

Var x, y : real;

begin
write('x = ');
readln(x);
write('y = ');
readln(y);
if (y > -1) and (y < 1) and (x <= 0) and (x > -1) then
write('Принадлежит!')
else
write('Не принадлежит!');
end;