Solução em Pascal do Problema 23

program polindrome;

var num, aux, reverso : longInt;

begin
 readLn(num);
 aux:=num;
 reverso:=0;
  while aux<>0 do
   begin;
    reverso:=reverso*10+(aux mod 10);
    aux:=aux div 10
   end;
  if reverso=num
   then
    writeLn('o # é palindromo')
   else
    writeLn('o # não é palindromo')
end.