Составить программу вычисления функции y=6x²+3(x²+1)2 паскаль

Program z1;
var x,y:real;
begin
read(x);
y:=6*sqr(x)+3*sqr(sqr(x)+1);
writeln(y);
end. (это если та двойка после скобок означает квадрат)