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