string s
int fim, i

leia s

enquanto (tamanho(s) > 72):
    fim <- 72
    enquanto (fim > 0 e s[fim] != ' '):
        fim <- fim - 1
    se (fim = 0):
        mostre "Impossível!"
        pare
    senao:
        mostre substring (s, 0, fim-1)
        s <- substring (s, fim, tamanho(s)-1)
        i <- 0
        enquanto (s[i] = ' '):
            i <- i + 1
        s <- substring (s, i, tamanho(s))

mostre s