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