string s
char   c
int    n, num, i, posicao
bool   ja_encontrei

leia s
leia c
n = tamanho(s)

num <- 0
ja_encontrei <- F
posicao <- -1

para i in (0,n-1):
    se (s[i] = c):
        se (ja_encontrei = F):
            posicao <- i
            ja_encontrei <- V
        num <- num + 1

mostre num

se (ja_encontrei):
    mostre posicao