Descobrir a idade - Visualg

algoritmo "descobreidade"
// Função : Descobrir a idade que você terar no ano que você pedi
// Autor : Uandisson
// Data : 11/2/2011
// Seção de Declarações
var
ANOnasc, ANOatual, idade:inteiro //declaração das variáveis que irei utilizar
inicio
// Seção de Comandos


escreva("Seu ano de nascimento. ")//escreve no vídeo o que está entre aspas duplas
leia(ANOnasc)//leitura de teclado da data de nascimento

repita //laço de repetição só sai quando a condição "ate" seja verdadeira
escreva("Ano que deseja que calcule a idade. ")//escreve no vídeo o que está entre aspas duplas
leia(ANOatual)//leitura de teclado da tada que deseja que revele a idade que terá quando chegar lá

se ANOatual <= ANOnasc entao//verifica se a data atual é menor ou igual a data de nascimento informada escreval("Digite uma data maior que a de nascimento.") fimse//final do se ate ANOatual > ANOnasc//so para de repeti se a data atual for maior que a data de nascimento
idade <- ANOatual - ANOnasc//atribui o resultado da subtração do ano atual com o ano de nascimento a variavel idade se idade > 100 entao//verifica se a idade vai ser maior que 100 anos
escreva("Você com ", idade, " anos, talvez você não cheque lá. kkkk")
senao//passando aqui, isso significa que a idade é menor que 100 anos
escreva("No ano ", ANOatual, ", você completara, ", idade, " anos.")//escreve a idade que você fará no ano escolhido
fimse//fim do se


// Fim Seção de Comandos
fimalgoritmo