Опять паскаль!!!! Люди знающие помогите пожалуйста!!!!!!!!!!!!!!! Задание во вложении!!!!!

{конструкция else для того если будут введены отрицательные x y}varx,y:real;beginreadln(x,y);if  (x*x*x*x*x+y)>0 then       writeln(exp(ln(x*x*x*x*x+y)*(1/3))*PI/(1+(exp(ln(2)*y)/x)))else        writeln(-exp(ln(abs(x*x*x*x*x+y))*(1/3))*PI/(1+(exp(ln(2)*y)/x)));end.