х в кубе? или умножение?
в кубе
Var x,y:real; begin writeln(Введите значение аргумента: '); readln(x); y:=abs(sqr(x)-x)-7*x/(x*x*x-15*x); writeln('Значение функции y= ', y:3:3); readln; end.