Область показана на прилагаемом рисунке.
var x,y : real;
begin
write('x = '); readln(x);
write('y = '); readln(y);
if (y>=x*x*x)and(y<=x)and(x>=0)or(y<=x*x*x)and(y>=x)and(x<0)<br> then writeln('Да')
else writeln('Нет')
end.
Пример:
x = 0.25
y = 0.2
Да