Program PascalGuru;
 
var n:integer;
    MAX:integer;
 
begin
write('Vvedite celoe cislo: '); readln(n);
 
MAX:=0;
 
while n<>0 do
  begin
    if n mod 10>MAX then MAX:=(n mod 10);
    n:=n div 10;
  end;
 
writeln('MAX= ',MAX);
 
readln;
end.