...
if y<=1 then
if (x*x+y*y<=1) then
write('принадлежит')
else
...
Этим условием вы отсекаете область верхнюю левую "треугольничек"if y<=1 then
if (x*x+y*y<=1) then
write('принадлежит')
else
...
Вы берете только пересечение всех 3-х множеств
добавьте к нему например " ИЛИ x<0 "