Como transformar dias em anos, meses, semanas e dias em Portugol - Desafio de Programação Resolvido em Portugol

Informe o número de dias: 500
Você informou 500 dias

Isso equivale a:
1 anos
4 meses
2 semanas
1 dias

// Converter dias em anos, meses, semanas e dias em Portugol
programa {
  funcao inicio() {
    // variáveis usadas na resolução do problema
    inteiro total_dias, anos, meses, semanas, dias

    // vamos ler a quantidade e dias
    escreva("Informe o número de dias: ")
    leia(total_dias)
    dias = total_dias

    // vamos obter a quantidade de anos
    anos = inteiro(dias / 365)
    dias = dias % 365
    // agora a quantidade de meses
    meses = inteiro(dias / 30)
    dias = dias % 30
    // agora a quantidade de semanas
    semanas = inteiro(dias / 7)
    // e finalmente os dias
    dias = dias % 7

    // e mostramos os resultados
    escreva("Você informou ", total_dias, " dias")
    escreva("\n\nIsso equivale a:\n")
    escreva(anos, " anos\n")
    escreva(meses, " meses\n")
    escreva(semanas, " semanas\n")
    escreva(dias, " dias\n")
  }
}