PROGRAM CBINSRCH(INPUT,OUTPUT);
  TYPE LL=ARRAY[ 1..100 ] OF INTEGER;
  VAR L:LL;
      I,X,Y,N:INTEGER;

{$I B:BINSRCH.SRC}

  BEGIN
    READLN(N);
    FOR I:=1 TO N DO READ(L[I]);
    READLN;
    READLN(X);
    WRITE('DATA =');
    FOR I:=1 TO N DO WRITE(L[I]:5);
    WRITELN;
    BINSRCH(N,L,X,Y);
    WRITE(X,'   =   L(',Y,')');
  END.