Caros Amigos, estou com um problema com Algoritmo não consigo fazer esse programa rodar, sou novo no fórum, por favor me ajude..!
algoritmo "Código e Categoria"
// Função : Mostrar dados
// Autor : Marcio
// Data : 17/08/2013
// Seção de Declarações
var
Codigo: Inteiro
Categoria: Literal
//
inicio
Escreval ("INSIRA O CÓDIGO DE UM NADADOR ")
//
Escreval ("Código------Categoria")
Escreval (" 1001-------Infantil")
Escreval (" 1002-------Juvenil")
Escreval (" 1003-------Adolescente")
Escreval (" 1004-------Sênior")
Escreval (" 1005-------Profissional")
Escreval (" 1006-------Master")
Escreval ("Insira o código do nadador")
Leia(Codigo)
//
Escolha Codigo="Categoria"
Caso1001
Escreval(" Sua categoria é Infantil")
Caso1002
Escreval (" Sua categoria é Juvenil")
Caso1003
Escreval (" Sua categoria é Adolescente")
Caso1004
Escreval (" Sua categoria é Sênior")
Caso1005
Escreval (" Sua categoria é Profissional")
Caso1006
Escreval (" Sua categoria é Master")
OutroCaso
Escreval ("Idade fora da faixa etária")
fimescolha
FimAlgoritmo