Y=x^3*tg^2*(x+1)^2+Sqrt(1/x) решение для pascal abc

program zz1;
var x,y:real; // задаем значение переменных не целого типа
begin
write(введите х); // вводим данное значение х
read(x);
y:=x*x*x*sqr(tan(sqr(x+1)))+sqrt(1/x); // вычисляем значение у по данной формуле
write(приобретенное значение уравнения = ,y); // выводим ответ
end.