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

Var x,y:longint;
begin
readln(x);
y:=abs(x*x*x*(3*x-5))-7;
writeln(y);
end.

И можно даже без у - запихнуть выражение в writeln