Program zad5;
var n,x,i,k,j:integer; a,b:array[1..20]of integer;
    Palindrom,ind:boolean;

function superCifra(n:integer):integer;
var suma:integer;
begin
  while n>9 do
  begin
    suma:=0;
    while n>0 do
      begin
        suma:=suma + (n mod 10);
        n:=n div 10;
      end;
    n:=suma;
  end;
  superCifra:=n;
end;

begin
  readln(x);
  n:=0;
  while x<>0 do
  begin
    n:=n+1;
    a[n]:=x;
    readln(x);
  end;
  
  for i:=1 to n do
    write(a[i]:5);
  writeln();
  
  for i:=1 to n do
    b[i]:=superCifra(a[i]);
    
  Palindrom:=true;
  for i:=1 to (n div 2) do
    if (b[i]<>b[n-i+1]) then 
      begin
        Palindrom:=false;
        break;
      end;
      
  if Palindrom then writeln('Jeste')
                else writeln('Nije');
                
                
  i:=1;
  while i<n do
  begin
    j:=i+1;
    ind:=false;
    while j<=n do
    begin
      if b[i]=b[j] then
        begin
          ind:=true;
          for k:=j to n-1 do
            begin
              a[k]:=a[k+1];
              b[k]:=b[k+1];
            end;
          j:=j-1;
          n:=n-1;
        end;
      j:=j+1;
    end;
    if ind then
      begin
        for k:=i to n-1 do
          begin
            a[k]:=a[k+1];
            b[k]:=b[k+1];
          end;
        i:=i-1;
        n:=n-1;
      end;
    i:=i+1;
  end;
  
  for i:=1 to n do
    write(a[i]:5);
  writeln();
end.