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

var x,y:real;beginreadln(x);readln(y);if x*x+y*y>1 then writeln('принадлежит') else writeln('не принадлежит')end.