count = 0 
 cnt = 0 
 k = 0 
 for n in range(1533, 5117): 
   s=str(n) 
   for x in s: 
     if int(x)%2!=0: 
          k += 1 
   if k==len(s): 
     count+=1 
     cnt+=n 
      
 print(count, cnt)

 var 
 count, n, k, x, sum: integer; 
 begin  
    count := 0;  
    for n := 1533 to 5117 do  
    begin  
      x := n;   
      k := 1;  
      while x >0  do  
      begin  
        if x mod 2 = 0 then   
          begin  
          k := 0;  
          break;   
          end;  
          x := x div 10;   
       end;  
      if k = 1 then   
        count :=count +1 ; 
        sum:=sum+x; 
    end;  
   writeln (count, sum)  
  end.

 if k = 1 then    
   count :=count +1 ;  
   sum:=sum+n;