string s
int n

leia s
n <- tamanho(s)

se (n > 72):
    se (s[72] = ' '):
        s <- substring(s,0,72)
    senao:
        i <- 72
        enquanto (s[i] != ' ' E i >= 0):
            i <- i - 1
        s = substring(s,0,i)

mostre s