string s
char   c
int    n, num, i

leia s
leia c

n <- tamanho(s)
num <- 0

para i em (0,n-1):
    se (s[i] = c):
        num <- num + 1

mostre num