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.