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.