../../Task/Arithmetic-geometric-mean/Commodore-BASIC