у=5х^3+16х^2+18х-29 вычислить значение выражения (значение х вводится с клавиатуры)

var x,y,a:integer;

begin

readln(x);

a:=5*х*sqr3+16*х*sqr(x)+18*х-29;

writeln(у=a);

end.