###
var k:=0;
  for var n:=100000 to 999999 do
  begin
    if n.ToString.countOf('1') = 0 then
    begin
      var st := 1;
      var x3_st := 3;
      while x3_st < n do
      begin
        var nc103 := n - x3_st;
        if (nc103 mod 2 = 1) and (nc103 mod 103 = 0) then begin
          Println(n, st);
          k+=1;
         end;
        st += 1; x3_st *= 3;
      end;
    end;
    if k = 5 then break
  end;