написать программу вычисления значения выражения: 1). y = (3x3 + 18x2)*x + 12x2 - 5;

Program calc;
var
y,x:integer;
begin
write('Введите значение переменной x: ');
readln(x);
y:=(3*3+18*2)*x+12*2-5;
writeln('ответ :',y);
readln;
end.