Funcion calcular_precio_final(precio_base, descuento)
        precio_final <- precio_base - (precio_base * descuento / 100)
        Devolver precio_final
    FinFuncion

    Algoritmo tienda_de_zapatos
        // Inicialización de descuentos personalizados
        Dimension descuentos_personalizados[6]
        
        // Inicialización de diccionario para el total vendido por marca en el mes
        Dimension total_vendido_mes[6]
        
        // Inicialización del total vendido en el día
        total_vendido_dia <- 0
        
        // Menú de opciones
        Escribir "Bienvenido al mundo de la moda"
        Escribir "Puedes ver el listado de zapatos disponibles en nuestra tienda:"
        Escribir "- Zapatos Nike $50000"
        Escribir "- Zapatos Adidas $60000"
        Escribir "- Zapatos Jordan $70000"
        Escribir "- Zapatos Reebok $80000"
        Escribir "- Zapatos Fila $35000"
        Escribir "- Zapatos Converse $100000"
        
        // Inicialización de descuentos personalizados
        descuento <- 10
        Para i <- 0 Hasta 5
            Escribir Sin Saltar "Ingresa el descuento para ", i+1, " (en porcentaje): "
            Leer descuento
            descuentos_personalizados[i] <- descuento
        FinPara
        
        // Menú de opciones
        opcion <- 0
        Repetir
            Escribir "Elige la marca de zapatos que deseas comprar: "
            Escribir "1. Nike"
            Escribir "2. Adidas"
            Escribir "3. Jordan"
            Escribir "4. Reebok"
            Escribir "5. Fila"
            Escribir "6. Converse"
            Escribir "7. Ver total vendido por marca"
            Escribir "8. Salir"
            Leer opcion
            
            Segun opcion Hacer
                Caso 1:
                    precio_por_zapato <- 50000
                    marca <- "Nike"
                Caso 2:
                    precio_por_zapato <- 60000
                    marca <- "Adidas"
                Caso 3:
                    precio_por_zapato <- 70000
                    marca <- "Jordan"
                Caso 4:
                    precio_por_zapato <- 80000
                    marca <- "Reebok"
                Caso 5:
                    precio_por_zapato <- 35000
                    marca <- "Fila"
                Caso 6:
                    precio_por_zapato <- 100000
                    marca <- "Converse"
                Caso 7:
                    Para i <- 0 Hasta 5
                        Escribir "Total vendido de ", i+1, ": ", total_vendido_mes[i]
                    FinPara
                Caso 8:
                    Escribir "Saliendo del programa..."
                    opcion <- 7 // Para salir del bucle
                De Otro Modo:
                    Escribir "Opción no válida."
            FinSegun
            
            Si opcion >= 1 y opcion <= 6 Entonces
                Escribir Sin Saltar "Ingresa el número de zapatos que deseas comprar: "
                Leer numero_de_zapatos
                
                total_vendido <- precio_por_zapato * numero_de_zapatos
                descuento_aplicado <- calcular_precio_final(total_vendido, descuentos_personalizados[opcion-1])
                total_vendido <- total_vendido - descuento_aplicado
                total_vendido_dia <- total_vendido_dia + total_vendido
                total_vendido_mes[opcion-1] <- total_vendido_mes[opcion-1] + total_vendido
                
                Escribir "Marca de zapatos: ", marca
                Escribir "Total vendido por esta marca antes de descuento: ", total_vendido + descuento_aplicado  // El total antes del descuento
                Escribir "Valor de descuento aplicado: ", descuento_aplicado
                Escribir "Total vendido por esta marca después de descuento: ", total_vendido
                
                Escribir "El total vendido en el día es: ", total_vendido_dia
                Escribir ""  // Salto de línea
            FinSi
        Hasta Que opcion = 7 
        
        Si total_vendido_dia > 0 Entonces
            Escribir "El total vendido en el día es: ", total_vendido_dia
        Sino
            Escribir "No se ha realizado ninguna venta hoy."
        FinSi
        
        Escribir "Cantidad de zapatos vendidos en el mes por marca:"
        Para i <- 0 Hasta 5
            Escribir i+1, ": ", total_vendido_mes[i]
        FinPara
    FinAlgoritmo