C1 правильно ли я написала программы к графикам?

 

 

 

(2 пораболы)

var x,y:real;
begin
readln(x,y);
if(y<=-x)and(y>=x*x-3)and(x<=0)then
write('принадлежит')
else
write('не принадлежит')
end.

 

 

2 график)

var x,y:real;
begin
readln(x,y);
if (y>=x*x*x)and(y>=-1)and(y<=2-x*x) then
write('принадлежит')
else
write('не принадлежит')
end.