Ответ:

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.

Объяснение:

Надеюсь помог