{Y = ((x - a)* arctg(a+x)-V^1/3|(x - a)| + x * ln(x^2 +2))}var Y,x,a,z:real;function Root3(X: Real): Real;begin if X = 0.0 then Root3 := 0.0 else if X > 0.0 then Root3 := Exp(Ln(X) / 3) else Root3 := -Exp(Ln(-X) / 3)end;begina := 0.4;x := 0.6;z:= Root3(abs(x - a));Y:= (x - a)* arctan(a+x)- z + x * Ln(x*x +2);
write(Y:9:6);end.