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:"Calcule a idade em dias"
var
ano,meses,dias,d:real
inicio
escreva("digite o numero de dias")
leis(dias)
ano<-(dias div365)
Meses<-(dias mod365)div30
d<-(dias mod365)mod30
Escreva(ano,meses,d)
fimalgoritmo