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

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