Faça um algoritmo que leia a idade de uma pessoa expressa em dias e mostre a expressa em anos.

algoritmo "Idade de uma pessoa"

var
dias, meses, anos, total, sobra:inteiro
inicio
escreval("Cálculo da Idade de uma Pessoa")
escreval
escreval("Entre com a Idade em dias: ")
leia(total)
anos<-total-(anos*365)
meses<-sobra div 30
dias<-sobra-(meses*30)
escreva("IDADE:",anos," ano(s) e",meses," mês(s) e",dias," dia(s)")
fimalgoritmo