Пожалуста 3 задачу(паскаль)даю 50 баллов + подписка и большое спасибо

Question

Пожалуста 3 задачу(паскаль)
даю 50 баллов + подписка и большое спасибо

---

Answer 1

//PascalABC.NET
var x, y: real;
begin
write('Введите x: '); readln(x);
y := (exp(sqr(x)/2)) + power(abs((power(tan(power(x,3)),3))/(1 + sqrt(x))),(1/3));
writeln('y = ', y);
end.