L4 - 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 "quarto"
Var
  a, Id,m,d: inteiro
Inicio
  Leia(Id)
  a <- Id DIV 365
  Id <- Id - (a * 365)
  m <- Id DIV 30
  d <- Id - (m * 30)
  Escreva(a," anos, ",m," meses e ",d," dias.")
Fimalgoritmo