(Pascal) Задать координаты точки и вывести, принадлежит ли точка заштрихованной (желтой)...

Question

(Pascal) Задать координаты точки и вывести, принадлежит ли точка заштрихованной (желтой) области или нет.

---

Answer 1

Var x,y:real;
begin
write('x=');readln(x);
write('y=');readln(y);
if (x*x+y*y<=1)and(y>=x)and(y<=-x+1)<br> then writeln('Точка принадлежит заштрихованной области')
 else writeln('Точка не принадлежит заштрихованной области');
end.