{$APPTYPE CONSOLE}

var a: array [1..1000] of integer;
i,j,n,m,key: integer;
begin
 assign(input,′input.txt′); reset(input);
 assign(output,′output.txt′); rewrite(output);
 readln(n,key);
 for i:=1 to n do
  read(a[i]);
{Массив изначально отсортирован по возрастанию}  
 i:=1;
 j:=n;
 while (i<=j) do
  begin
   m:=(i+j) div 2;
   if (key = a[m]) then
    begin
     write(′Элемент найден, позиция в массиве # ′,m);
     halt;
    end else
   if key > m then i:=m+1 else j:=m-1;
  end;
 write(′Элемент не найден′);
end.