RosettaCodeData/Task/Binary-search/Pascal/binary-search-2.pas

var
    list: array[0 .. 9] of real;
// ...
indexof := binary_search(123, list);