S = {2, 5, 9, 22, 89, 105, 200};
a = 105;
h = 1; t = Length[S];
k = Floor[(h + t)/2];
While[h <= t, If[S[[k]] == a, Break[],
If[S[[k]] > a, t = k - 1, h = k + 1]];
k = Floor[(h + t)/2]; ];
If[h > t, k = -1];
Print[a, " ", k];

なにを求めるプログラムなのかわかんない…
だれか教えてください。