Algoritmo opção de escolha

Algoritmo opção de escolha

algoritmo "opção de escolha"
// Função :escolha uma opcao
// Autor :alexssandrolima
// Data : 10/06/2012
// Seção de Declarações
var
opcao:inteiro
inicio
// Seção de Comandos
enquanto opcao <> 5 faca
         escreval("digitea uma opcao ate numero 5")
         leia(opcao)
                    escolha opcao
                    caso 1
                    escreval ("escolheu um")
                    caso 2
                    escreval ("escolheu dois")
                    caso 3
                    escreval ("escolheu tres")
                    caso 4
                    escreval ("escolheu quatro")
                    caso 5
                    escreval ("escolheu cinco para sair")
                    outrocaso
                    escreval ("opcão errada")
                    fimescolha
fimenquanto
fimalgoritmo