string s
int i, p
bool nova_palavra

leia s
nova_palavra <- V
p <- 0

para i em (0..tamanho(s)-1):
    se (s[i] == ' ' ou s[i] == ',' ou
        s[i] == '.'):
        nova_palavra <- True
    senao:
        se (nova_palavra):
            p <- p + 1
            nova_palavra <- F

mostra p