Составить программу проверяющую принадлежность точки с координатами x,y, заштрихованной области на плоскости.

varx,y:real;beginwrite('Введите X: ');readln(x);write('Введите Y: ');readln(y);if (y>0) and (x*x+y*y<=1)   then writeln('Принадлежит')   else writeln('Не принадлежит');end.