IdadeTempo

algoritmo "IdadeTempo"
var
nascimento, anoAtual, idade, dia, hora : inteiro
calcDia, calcHora : inteiro
inicio
escreval("Digite o ano  de nascimento:")
leia(nascimento)
escreval("Digite o ano atual:")
leia (anoAtual)
idade <- anoAtual - nascimento
dia  <- 365
hora <- 24
calcDia <- (dia * idade)
calcHora <- (calcDia * hora)
escreval("IDADE:", idade)
escreval ("QUANTIDADE DE DIAS:", calcDia)
escreval ("QUANTIDADE DE HORAS:", calcHora)
fimalgoritm