// Acha o primeiro caractere DIFERENTE de c
// na string s:
funcao acha_nao (char c, string s, int inicio): int
       int i
       para i em (inicio..tamanho(s)):
               se s[i] != c:
                       retorne i
       retorne tamanho(s)

// acha o prieiro caractere IGUAL a c na string
// s:
funcao acha (char c, string s, int inicio): int
       int i
       para i em (inicio..tamanho(s)):
               se s[i] == c:
                       retorne i
       retorne tamanho(s)

// Conta o número de palavras na string s que sao
// maiores do que n:
funcao conta_palavras_maiores (string s, int n): int
       int a, b
       cont <- 0
       a <- 0
       while (a < tamanho(s)):
               a <- acha_nao(' ', s, a)
               b <- acha    (' ', s, a)
               if (b-a) > n:
                       cont <- cont + 1
               a <- b
       retorne cont


string s

leia s
mostra conta_palavras_maiores(s,4)