30 баллов 21 пожалуйста

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