Alg1-4. Faça um algoritmo que leia a idade de uma pessoa expressa em dias e mostre-a expressa em anos, meses e dias.

algoritmo "Transforma Idade de dias para anos, meses e dias"

var
  i,a,m,d:inteiro

inicio
// Seção de Comandos
   escreval("Entre com sua idade em dias: ")
   leia(i)
   a<-i div 365
   m<-(i mod 365)div 30
   d<-(i mod 365)mod 30
   escreva("Você tem: ",a, "ano(s) ", m, "mes(es) ", d, "dia(s).")
fimalgoritmo