program BinarySearch;

var
  numbers: array[1..6] of Integer = (11, 23, 70, 28, 63, 5);
  target: Integer = 28;
  left, right, mid: Integer;
  found: Boolean;

begin
  left := 1;
  right := Length(numbers);
  found := False;

  while (left <= right) and (not found) do
  begin
    mid := (left + right) div 2;

    if numbers[mid] = target then
    begin
      found := True;
    end
    else if numbers[mid] < target then
    begin
      left := mid + 1;
    end
    else
    begin
      right := mid - 1;
    end;
  end;

  if found then
    writeln('Số 28 được tìm thấy tại vị trí ', mid)
  else
    writeln('Không tìm thấy số 28 trong dãy số.');

  readln;
end.