program zad;
uses crt;
var a,b,c,k: integer;
n :longint;
Begin
writeln('Введите число ');
readln(n);
   a:=n mod 10;
   b:=(n div 10) mod 10;
   c:=(n div 100) mod 10;
writeln(c,b,a); readln;
    if c=a then writeln('является палиндромом') else
   writeln(' не является палиндромом');
     if a > c then writeln(a,b,a)
  else writeln(c,b,c) ;
end.