../../Task/Arithmetic-geometric-mean/FreeBASIC