Exercicio 14 capitulo 3

Escreva um algoritmo que leia três valores correspondentes ao dia, mês e ano de nascimento de
uma pessoa e outros três valores correspondentes ao dia, mês e ano do dia corrente. O
algoritmo deve escrever a idade da pessoa.

algoritmo "3.14"
// Função :
// Autor : Gustavo
// Data : 28/9/2010
// Seção de Declarações 
var
   //Mesmo sendo tudo do mesmo tipo, separei para ficar mais organizado, mas tanto faz declarar tudo junto.
   anoNasc,mesNasc,diaNasc:inteiro
   anoCorr,mesCorr,diaCorr:inteiro
   anoIdade,mesIdade,diaIdade:inteiro
inicio
   escreval(" - - - Data de nascimento - - - ")
   escreval("Informe sua data de nascimento")
   escreva("Ano: ")
   leia(anoNasc)
   escreva("Mes: ")
   leia(mesNasc)
   escreva("Dia: ")
   leia(diaNasc)
   
   escreval
   escreval(" - - - Data Corrente - - - ")
   escreval("Informe a data corrente.")
   escreva("Ano: ")
   leia(anoCorr)
   escreva("Mes: ")
   leia(mesCorr)
   escreva("Dia: ")
   leia(diaCorr)
   
   anoIdade<- anoCorr-anoNasc
   se (mesCorr>mesNasc) entao
      mesIdade<- mesCorr-mesNasc
   senao
      mesIdade<- 12-(mesNasc-mesCorr)
      se (diaNascdiaNasc) entao
      diaIdade<- diaCorr-diaNasc
      mesIdade<- mesIdade+1
   senao
      diaIdade<- diaNasc-diaCorr
   fimse
   
   se (mesIdade=12) entao
      anoIdade<- anoIdade+1
      mesIdade<- 0
   fimse
   
   escreva("Você tem ",anoIdade," anos, ",mesIdade, " mese(s) e ",diaIdade," dia(s)")
fimalgoritmo