Написать программу в Паскале

PascalABC.NET ₃.₆.₃.₂₅₇₇## var x := ReadReal; var W := Tan(x**(1/3)) + 1/Tan(x**(1/4)); W.Print

Пример работы:

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.