uses crt;
var s,m:string; i,j:longint;
begin
clrscr;
   write('Nhap vao mot xau ki tu: ');readln(s);
   for i:=1 to length(s) do 
      while not(s[i] in ['0'..'9']) do delete(s,i,1);
   for i:=1 to length(s) do 
      begin
         j:=i+1;
         while (j<=length(s))and(s[j]<=s[j-1]) do 
            inc(j); 
         if j-i>length(m) then m:=copy(s,i,j-i);
      end;
   writeln(m);
readln
end.

uses crt;
var s,st,max_num:string;
i,dem,max_len:byte;
begin
    clrscr;
    readln(st);
    for i:=1 to length(st) do
       if st[i] in ['0'..'9'] then
          s:=s+st[i];
    max_len:=0;
    max_num:='';
    while length(s)<>0 do
       begin
           dem:=1;
           while (s[dem]>=s[dem+1]) and (dem<>length(s)) do inc(dem);
           if max_len<dem then
               begin
                  max_len:=dem;
                  max_num:=copy(s,1,dem)
               end;
           delete(s,1,dem);
       end;
    writeln(max_num);
readln;
end.