funcao tira_espacos (string s): string
    int i
    int j <- 0
    string[tamanho(s)] nova
    para i em (0..tamanho(s)-1):
        se s[i] != ' ':
            nova[j] s[i]
	    j <- j + 1
    retorne nova

funcao palindroma(string s): bool
    int i
    int n <- tamanho(s)
    bool pal <- V
    para i em (0..n-1):
        se (s[i] != s[n-i-1]):
            pal <- F
    retorne pal

string s
leia s

se palindroma(tira_espacos(s)):
    mostre "Sim!"
senao:
    mostre "Não!"