// Como podem notar, não é tão difícil. Só inserimos no algoritmo
// que plota (da outra lista):
// - Uma variável "frase"
// - Uma variável "linha"
// - Um comando para mostrar a n-ésima posição da frase, onde n
//   é o resto de linha / tamanho(frase)

real a, b, intervalo
int linha
string frase

leia a, b
leia intervalo
leia frase

frase <- concatena (frase, "*")

linha <- 0
i <- a

if (b <= a):
	mostre "erro"
senao:
	mostra "a = ", a
	mostra "b = ", b
	mostra "intervalo = ", intervalo
	enquanto (i <= b): 
		valor <- 20 + sen(i) * 20
		j <- 0
		enquanto (j < valor+1):
			mostra " ",
			j <- j + 1
		mostra frase [linha % len(frase)]
		linha <- linha + 1
		i <- i + intervalo