Формулу надо перевести на язык паскаль!!Пожалуйста!

Учтем, что в "традиционном" Паскале нет многих математических функций и их нужно моделировать. [latex]\displaystyle \lg(x)= \frac{\ln(x)}{\ln(10)}; \quad ctg(x)= \frac{1}{tg(x)}; \quad \sqrt[4]{x}= \sqrt{\sqrt{x}}; \\ \\ a^b=e^{b\ln(a)}; \quad \sqrt[3]{x}=x^{1/3}=e^{ln(x)/3} [/latex] В то же время, современная версия PascalABC.Net 3.2 располагает более широким набором функций. [latex]\displaystyle \lg(x) \to Log10(x); \quad ctg(x)=1/Tan(x) \quad \sqrt[4]{x}=Power(x,0.25); \\ \\ a^b=Power(a,b); \quad \sqrt[3]{x}=Sign(x)*Power(Abs(x),1/3)[/latex] А теперь запись самого выражения. var x,y,z,p,q:real; begin ... p:=x-z; q:=exp(p)+1; y:=sqr(log10(abs((power(abs(power(sin(p),3)),0.25)+cos(p))/(tan(p)+    1/tan(p)))))-sign(q)*power(abs(q),1/3); ... end.