Casca Grossa

algoritmo "Procedimento repetir nomes"

var
Procedimento Gerador(msg: Caractere; qtd: Inteiro; opcao: inteiro)
var
   c : Inteiro
inicio
   escolha (opcao)
   caso 1
   escreval ("+-------=======------+")
   caso 2
   escreval ("~~~~~~~~:::::::~~~~~~~")
   caso 3
   escreval ("<<<<<<<<------->>>>>>>")
   fimescolha
   
   Para c <- 1 ate qtd faca
      EscrevaL(" ", msg)
   FimPara

    escolha (opcao)
   caso 1
   escreval ("+-------=======------+")
   caso 2
   escreval ("~~~~~~~~:::::::~~~~~~~")
   caso 3
   escreval ("<<<<<<<<------->>>>>>>")
   fimescolha
FimProcedimento
inicio
   Gerador("Aprendendo Portugol", 4, 2)

fimalgoritmo