Доработка программы

if  (х>=0) and (у<=1)  or (y>=x-1) and (x*x + y*y <=1) then writeln ('принадлежит') else ('не принадлежит');
end.