var
  n, i: integer;

begin
  write('Введите число: '); 
  readln(n);
  while n > 0 do 
  begin
    if n mod 10 > i
      then i := n mod 10;
    n := n div 10; 
  end;
  writeln('Самая большая цифра = ', i);
end.