Modiffica el programa del Ejemplo 1.12 de manera que haga lo siguiente: