algoritmo "Capícua" var num, parteA, parteB: inteiro resultado: real inicio leia (num) parteA <- num \ 100 parteB <- num % 100 resultado <- (parteA + parteB)^2 se (resultado=num) entao escreva("SIM") senao escreva("NAO") fimse fimalgoritmo