Criado em Selecione/Caso, coloquei um looping feito em repita, basta digitar 5 no primeiro menu e o algoritmo interrompe
algoritmo "Cadastro"
// Função :
// Autor :
// Data : 14/09/2010
// Seção de Declarações
var
opcao,tipo:inteiro
nome, endereco:caracter
cpf,telefone,data_nascimento:caracter
inicio
// Seção de Comandos
repita
escreval("*****Cadastro de cliente*****")
escreval("1-incluir")
escreval("2-Alterar")
escreval("3-consultar")
escreval("4-Excluir")
escreval("5-Sair")
leia(opcao)
escolha opcao
caso 1
escreva("Nome:")
leia(nome)
escreva("Endereço:")
leia(endereco)
escreva("CPF:")
leia(cpf)
escreva("Telefone:")
leia(telefone)
escreva("Data Nascimento:")
leia(data_nascimento)
caso 2
escreval("*****Alterar dados*****")
escreval("Alterar Nome - 1")
escreval("Alterar Endereço - 2")
escreval("Aleterar CPF - 3")
escreval("Alterar Telefone - 4")
escreval("Alterar Data de Nascimento - 5")
leia(tipo)
se tipo=1 então
escreva("Altere o Nome:")
senao
se tipo=2 então
escreva("Altere o Endereço:")
senao
se tipo=3 então
escreva("Altere o CPF:")
senao
se tipo=4 então
escreva("Altere o Telefone:")
senao
se tipo=5 então
escreva("Altere a Data de Nascimento:")
fimse
fimse
fimse
fimse
fimse
caso 3
escreval("*****Consultar dados*****")
escreval("Consultar Nome - 1")
escreval("Consultar Endereço - 2")
escreval("Consultar CPF - 3")
escreval("Consultar Telefone - 4")
escreval("Consultar Data de Nascimento - 5")
leia(tipo)
se tipo=1 então
escreva("Consulte o Nome:")
senao
se tipo=2 então
escreva("Consulte o Endereço:")
senao
se tipo=3 então
escreva("Consulte o CPF:")
senao
se tipo=4 então
escreva("Consulte o Telefone:")
senao
se tipo=5 então
escreva("Consulte a Data de Nascimento:")
fimse
fimse
fimse
fimse
fimse
caso 4
escreval("*****Excluir dados:*****")
escreval("Excluir Nome - 1")
escreval("Excluir Endereço - 2")
escreval("Excluir CPF - 3")
escreval("Excluir Telefone - 4")
escreval("Excluir Data de Nascimento - 5")
leia(tipo)
se tipo=1 então
escreva("Exclua o Nome:")
senao
se tipo=2 então
escreva("Exclua o Endereço:")
senao
se tipo=3 então
escreva("Exclua o CPF:")
senao
se tipo=4 então
escreva("Exclua o Telefone:")
senao
se tipo=5 então
escreva("Exclua a Data de Nascimento:")
fimse
fimse
fimse
fimse
fimse
caso 5
escreva("Programa encerrado!")
outrocaso
escreval("opção Invalida")
fimescolha
ate opcao=5
fimalgoritmo