program p1;
type niz=array[1..50] of string;
var x,y:niz; n,i,k, poz, duzina:integer; s:string;

Procedure UnosNizaS(var a:niz; var n:integer);
var pom:string;
begin
  n:=0;
  readln(pom);
  while(pom<>'KRAJ') do
    begin
      n:=n+1;
      a[n]:=pom;
      readln(pom);
    end;
end;

Procedure IspisNizaS(a:niz; n:integer);
var i:integer;
begin
writeln(n);
  for i:=1 to n do
    writeln(i,a[i]:5);
end;

Function NapraviString(a,b:string):string;
var i,j,n1,n2,k:integer; s:string;
begin

  n1:=length(a);
  n2:=length(b);
  i:=1; 
  j:=1;
  k:=1;
  while(i<=n1) and (j<=n2) do
  begin
    if(k mod 2=1) then
      begin 
        s:=s+a[i];
        i:=i+1;

      end
    else
      begin
        s:=s+b[j];
        j:=j+1;
      end;
    k:=k+1;
  end;

  while(i<=n1) do
      begin 
        s:=s+a[i];
        i:=i+1;
      end;
      
   while(j<=n2) do
      begin
        s:=s+b[j];
        j:=j+1;
      end; 
  
   NapraviString:=s;
end;

Procedure Okreni(var s:string);
var i,n:integer; c:char;
begin
  n:=length(s);
  for i:=1 to n div 2 do
    begin
      c:=s[i];
      s[i]:=s[n-i+1];
      s[n-i+1]:=c;
    end;
end;

Procedure Najduza(s:string; var poz, duz:integer);
var i,n,duz_tren,poz_tren:integer;
begin
  i:=1;
  n:=length(s);
  duz:=0;
  while(i<=n) do
  begin
    if (s[i]>='0') and (s[i]<='9') then
    begin
      poz:=i;
      while(i<=n) and (s[i]>='0') and (s[i]<='9') do
      begin
        i:=i+1;
        duz:=duz+1;
      end;
      
      break;
    end;
    i:=i+1;  
  end;
  
  
  while (i<=n) do
  begin
    if (s[i]>='0') and (s[i]<='9') then
    begin
      poz_tren:=i;
      duz_tren:=0;
      while(i<=n) and (s[i]>='0') and (s[i]<='9') do
      begin
        i:=i+1;
        duz_tren:=duz_tren+1;
      end;
      
      if (duz_tren>duz) then
      begin
        duz:=duz_tren;
        poz:=poz_tren;
      end;
    end;
    i:=i+1;
  end;

end;

begin
  //UnosNizaS(x,n);
  //IspisNizaS(x,n);
  

  //i:=1;
  //k:=1;
  //while (i<n) do
  //begin
  //  y[k]:=NapraviString(x[i],x[i+1]);
  //  i:=i+2;
  //  k:=k+1;
  //end;  
  //k:=k-1;
  //IspisNizaS(y,k);
  
  //s:='infom';
  //Okreni(s);
  //writeln(s);
  
  Najduza('1abc12356bbb65',poz,duzina);
  writeln(poz:5,duzina:5);

end.
