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.
