int i, j, comeco_palavra
string s
bool nova_palavra

leia s
nova_palavra <- V
comeco_palavra <- 0

para i en (0..tamanho(s)-1):
    se (s[i] = ' ' ou s[i] = ',' ou
        s[i] = '.'):
        se (nao nova_palavra):
            para j em range(i-1, comeco_palavra):
                mostra s[j]
            nova_palavra <- V
        mostra s[i]
    senao:
        se (nova_palavra):
            comeco_palavra <- i
            p <- p + 1
            nova_palavra <- F

se (nao nova_palavra):
    para j em (i..comeco_palavra):
        mostre s[j]