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

var
x, y: real;

begin
write('x = ');
readln(x);
y := 3 * sqr(x * sqr(x)) - 6 * sqr(x) - 7;
writeln('y = ', y);
readln
end.