program z1618;

Var n,x: longint;

max,c:byte;

begin

Write('vvedite chislo');readln(n);

x:=n;

max:=0;

While x>0 do begin

c:=x mod 10;

if c>max then max:=c;

x:=x div 10

end;

n:=n*10+max;

writeln('znach',n);

end.