Inicio 
 i=0 
 j=0
 leer cad 
 mientras (cad[i] <> “\0”) hacer 
    i=i+1 
 fin mientras 
 mientras ( i <> 0) hacer 
    cad_inv[j] = cad[i–1]
    j=j+1 i=i–1 
 fin mientras
 cad_inv [j] = ”\0 ”
 si (cad == cad_inv ) entonces
     visualizar “si es palindromo” 
 si_no
     visualizar “no es palindromo” 
 fin_si 
fin