Пример работы:
Var
x, w: real;
Begin
Readln(x);
W := (sin(x ** (1 / 3))/cos(x ** (1 / 3))) + (1 / (sin(x ** (1 / 4))/cos(x ** (1 / 3))));
Writeln(w);
End.
