Cоставить программу вычисления функции y=12x^2+7x-16 при любом значении x

Если паскаль:

var y,x:integer;
begin
writeln ('введи х');
readln (x);
y:=12*sqr(x)+7*x-16;
writeln ('y=',y);
readln;
end.

Спасибо