como ta a mente do palhaço

Bem, eu fiz desse jeito aqui, pode tá meio confuso, mas funciona kkkk algoritmo "Q89 procedimento" var vezes, repet, repet1, bor :inteiro bor1, n, c : caractere inicio procedimento gerador (hello : caractere) var c : inteiro inicio escolha bor caso 1 bor1 := " +-------=======------+ " caso 2 bor1 := " ~~~~~~~~:::::::~~~~~~~ " caso 3 bor1 := " <<<<<<<<------->>>>>>> " fimescolha escreval (bor1) para c <- 1 ate repet1 faca escreval (hello) fimpara escreval (bor1) fimprocedimento escreval ("como quer que seja a sua mensagem? ") leia (n) escreval ("escolha como vai ser sua borda na mensagem de 1 a 3 ") escreval (" +-------=======------+ Borda 1 ") escreval (" ~~~~~~~~:::::::~~~~~~~ Borda 2 ") escreval (" <<<<<<<<------->>>>>>> Borda 3 ") leia (bor) escolha bor caso 1 escreval (" +-------=======------+ ") caso 2 escreval (" ~~~~~~~~:::::::~~~~~~~ ") caso 3 escreval (" <<<<<<<<------->>>>>>> ") fimescolha escreval ("quantas vezes quer repetir a mensagem? ") leia (repet1) escreval ("quantas vezes quer repetir o conjunto inteiro? ") leia (repet) limpatela para vezes := 1 ate repet faca gerador (n) fimpara fimalgoritmo