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

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);