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

Дмитрий

C1 правильно ли я написала программы к графикам?
 
 
 
(2 пораболы)
var x,y:real;beginreadln(x,y);if(y<=-x)and(y>=x*x-3)and(x<=0)thenwrite('принадлежит')elsewrite('не принадлежит')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.