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

Если паскаль:var y,x:integer;beginwriteln ('введи х');readln (x);y:=12*sqr(x)+7*x-16;writeln ('y=',y);readln;end.