Паскаль. 9 класс. Пожалуйста посчитайте!!

Program n1;
var x,y: real;
begin
readln(x);
if x<-6 then y:=29*x*x-39
else if (x>=-6) and (x<=16) then
y:=21*sqr(sqr(sqr(x)))+3*x-7*sqr(sqr(x))*sqr(x)*x
else if (x>17) then y:=(1/46)*sqr(sqr(x))+sqr(x)*x-sqr(x);
writeln(y);
end.