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.