Con este algoritmo probado, realizamos el programa: