Var x1,y1:real;
begin
writeln('Введите координаты точки x1 и y1');
readln(x1,y1);
if y1=x1*x1*x1+x1/4
then writeln('Данная точка принадлежит кривой x^3 + x/4')
else writeln('Данная точка не принадлежит кривой x^3 + x/4');
end.
Пример:
Введите координаты точки x1 и y1
2 8.5
Данная точка принадлежит кривой x^3 + x/4