program binarne_hladanie;
{Toto je pre pole, ktore je na zaciatku usporiadane vzostupne}
uses crt;
var n,i,hh,dh,s,h: integer;
a: array [1..1000] of integer;
begin
  clrscr;
  write('Zadaj pocet prvkov pola: '); readln(n);
  write('Zadaj pole (usporiadanie vzostupne): ');
  for i:=1 to n do
    read(a[i]);
  readln;
  write('Zadaj prvok ktory chces v poli najst: ');
  readln(h);
  if h>a[n] then writeln('nie')
  else begin
    hh:=a[n];
    dh:=a[1];
    s:=n+1;
    a[s]:=n+1;
    while (a[s]<>h) and (dh<=hh) do begin
      s:=(dh+hh) div 2;
      if a[s] > h then hh:=s-1
      else dh:=s+1;
    end;
    if a[s]=h then writeln('ano')
    else writeln('nie');
  end;
  readln;
end.
