Y=|3x^4-5x^3|-7 напишите пожалуйста полный программный код в паскале!

var x,y:longint;beginreadln(x);y:=abs(x*x*x*(3*x-5))-7;writeln(y);end.И можно даже без у - запихнуть выражение в writeln