var x,y:real;
begin
readln(x, y);
if (x>=0) and (y<=1)
and (x*x + y*y <= 1)
and (y >= x-1) then
write('принадлежит')
else write('не принадлежит');
end.
Объяснение:
Надеюсь
