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