program Project1;
var
x, y: integer;
begin
write ('x = ');
readln (x);
y:=2*x*x*x-2*sqr(x)-2;
writeln(y);
end.
Проверил, вроде все работает)
