Определить принадлежит ли точка с
координатами (X;Y) заштрихованной части плоскости.

//PascalABC.Net 3.2begin //true - если принадлежит, false - если не принадлежитvar x:=readreal ('x =');var y:=readreal ('y =');write ((sqrt(y*y+x*x)<=1) and (y>=0) and (y>=-x));end.