Pseudocódigo/Diagramas de Flujo - Ayuda con psint - Leer un número entero y determinar cuántas veces tiene el dígito 1

INICIO

    c = 0 //contador de numeros 1

    leer(n) //lee el numero desde teclado

    mientras n != 0

        x = n % 10

        si x == 1

            c = c + 1

        fin-si

        n = n / 10 //division entre enteros

    fin-mientras

    si c == 1

        imprimir('El numero 1 aparece ',c,' vez')

    sino

        imprimir('El numero 1 aparece ',c,' veces')

    fin-si

FIN