Untitled

var N,x:Integer;

Begin

   x:=0;
   Read(N);

   While N > 0
   do begin
   
   if N mod 10 > x then x:=N;
   N:=N div 10;
   
   end;
   write(x);
end.