start
natural n, palindrom, c, cn
citeste n
cn <- n
cat_timp n <> 0
c <- n mod 10
palindrom <- palindrom * 10 + c
n <- n div 10
sfarsit_cat_timp
daca palindrom = cn atunci
scrie "Numarul " cn " este palindrom"
stop
Nota: L-am initializat pe cn si i-am dat valoarea n pentru a salva valoarea lui n, deoarece algoritmul este distructiv (dupa rulare, numarul n o sa fie egal cu 0)