var
  num, digit, max : integer;

begin
  max := 0;
  
  readln(num);
  
  while num > 0 do
  begin
    digit := num mod 10;
    if digit > max then
      max := digit;
    num := num div 10;
  end;
  
  writeln(max);
end.