Нужно решение этого уравнения в паскале

Pascal

uses math;

var

 x, y, z, s : double;

begin

 x:=0.1722;

 y:=6.33;

 z:=3.25 * power(10,-4);

 s:= 5*arctan(x) - 0.25*arccos(x)*(x+3*abs(x-y)+sqr(x))/(abs(x-y)*z+sqr(x));

 writeln('s=',s:3:3);

end.