Помогите пожалуйста с номером 4
Var x,y,z:real; begin writeln('Введите число x='); readln(x); y := 12*power(x,6) - 24*power(x,3) - 9; z := power(y,3) * power(y,5) * power(y,7); writeln(z); end.