funcao calcula_freq(string s): vetor(int)
    string alfabeto
    alfabeto <- 'abcdefghijklmnopqrstuvwxyz'
    vetor(int, 26) freq
    para i em (0..25):
        freq[i] <- 0
    para i em (0..tamanho(s)):
        para j em (0..25):
            se s[i] = alfabeto[j]:
                freq[j] <- freq[j] + 1
    retorne freq

string s, alfabeto
leia s
alfabeto <- 'abcdefghijklmnopqrstuvwxyz'
freq <- calcula_freq(s)
para i em (0..25):
    se (freq[i] != 0):
        mostre alfabeto[i], freq[i]