Напишите ,пожалуйста,программу для паскаля

var x:int64; begin read(x); writeln((-2*x)+3*x*x-4*x*x*x); end. От заданного x.