Перевести в паскаль по информатике пожалуйста!!!

Question

Перевести в паскаль по информатике пожалуйста!!!

---

Answer 1

Readln(x);
//X^Y = exp(ln(X) * Y) - возведение в степень 
ctg1:=cos(x)/sin(x);
y:=sqrt(sqrt((x*x+3)/(x-1))-exp(ln(ctg1*5)*3);