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 "Alg. que leia a idade de uma pessoa expressa em dias e mostre-a expressa em anos, meses e dias."
// Função :
// Autor :
// Data : 30/8/2010
// Seção de Declarações

var
A,M,D : inteiro

inicio
Escreva ("Digite os dias: ")
Leia (D)
A<-(D div 365)
M<-((D mod 365) div 30)
D<-((D mod 365) mod 30)
Escreva ("Você tem", A ," anos", M ," meses", D ," e dias")

fimalgoritmo