program Palindromo;
var n_digitado, n, n_invertido, aux : integer;
begin
    write('Digite um numero: ');
    readln(n_digitado);
    n := n_digitado;
    n_invertido := 0;
    while(n <> 0)do
    begin
        aux := n mod 10;
        n_invertido := (n_invertido * 10) + aux;
        n := n div 10;
    end;
    if(n_digitado = n_invertido)then
        writeln(n_digitado,' e Palindromo.')
    else
        writeln(n_digitado,' Nao eh Palindromo.');
readln();
end.