Boa noite, estou fazendo um cursotécnico de algoritmo no site cursoemvideo, estou na AULA 12, onde fala sobre PROCEDIMENTO, no entanto, não estou conseguido executar o algoritmo abaixo, alguém pode me informar onde está o erro?
Algoritmo "semnome"
Var
ANOA, ANON, IDADE :inteiro
Procedimento IDADE(A,B:inteiro)
inicio
IDADE <-(A-B)
Se (IDADE>=18)então
Escreval ("IDADE: ", IDADE," ANOS")
Escreval ("APTO A DIRIGIR")
senao
Escreval ("IDADE: ", IDADE," ANOS")
Escreval ("NÃO ESTÁ APTO A DIRIGIR")
FimSe
FimProcedimento
Inicio
Escreval ("------------------------")
Escreval ("DEPARTAMENTO DE TRANSITO")
Escreval ("------------------------")
Escreva ("ANO ATUAL (yyyy): ")
Leia (ANOA)
Escreva ("ANO DE NASCIMENTO (yyyy): ")
Leia (ANON)
Escreval ("----------STATUS-------")
IDADE (ANOA,ANON)
Fimalgoritmo