Если точка с координатами (х, у) лежит в закрашенной области, то вывести фразу "Точка с координатами (х, у) принадлежит закрашенной области", иначе вывести фразу "Точка с координатами (х, у) не принадлежит закрашенной области".
Belongs := ((x>=-sqrt(2)) and (x<=0) and (y>=0) and (y<=2-sqr(x))) or ((x=>0) and (x<=1) and (y=>0) and (y<=x)) or ((x<=sqrt(2)) and (x>=1) and (y>=0) and (y<=2-sqr(x)));
--Написать программу в delphi