Diseñar un algoritmo para determinar si un número es un palíndromo

var

s:string;

i:integer;

comenzar

readln(s); {Registre el número}

para i:=1 a longitud(es) div 2 (los palíndromos se corresponden en pares, por lo que solo se busca la mitad de ellos)

if s[i ] =s[length(s)+1-i] luego continúa {Si es así, deja que continúe buscando}

else start dec(i);{Si no, cambia el puntero; i apunta al frente y salta fuera del bucle}

si i=longitud(es) entonces writeln("yes")

else writeln("no");{Indica que la búsqueda se completa sin recibir Resistencia alguna, por lo que es un palíndromo}

fin.