Найдите значение функцииy=2x^3-2x^2-2 при данном значении x (Паскаль)

program Project1;

var

   x, y: integer;

begin

   write ('x = ');

   readln (x);

y:=2*x*x*x-2*sqr(x)-2;

 writeln(y);

end.  

Проверил, вроде все работает)