4_16

algoritmo "4_16"

      declare n, r, aux:inteiro;

      leia(n);
      aux <- n;
      r <- 0;
      enquanto (aux != 0) faca

               r <- r * 10 + (resto(aux,10));
               aux <- aux/10;
      fimenquanto
      se (r == n) entao
         escreval("capicua");
      senao
           escreval("Não capicua");
      fimse
fimalgoritmo