Código utilizado en el programa: