Ler o ano atual

Este algorítimo foi feito no VisualG, para outras averiguações faça os testes neste software

Algoritmo "Votar"

Var

AnoAtual, AnoNasc, Idade: Inteiro

Inicio

   Escreva("Digite o ano atual: ")

   Leia(AnoAtual)

   Escreva("Digite o ano de nascimento: ")

   Leia(AnoNasc)

   Idade <- AnoAtual - AnoNasc

   Se (Idade >=18) entao

     Escreva("Você tem", Idade, " anos. Está apto a votar")

   senao

      Escreva("Você tem", Idade, " anos. Não está apto a votar")

   FimSe

Fimalgoritmo