const n=9;  amax=3;
var       b,j,k,l: integer;  s: boolean;
a: array [0..n] of integer;

BEGIN              {Заповнення масиву}
randomize;
a[0]:=0;
for j:=1 to n do begin
  a[j]:=a[j-1]+1+random(amax);
  write(a[j]:4)   end;
writeln;
b:=1+random(a[n]);

write('Серед елементів цього масиву значення ',b);
s:=true;
j:=1;                {Бінарний пошук}
k:=n;
while (j<=k) and s do    begin
  l:=(j+k) div 2;
  if a[l]=b then s:=false else
  if a[l]<b then j:=l+1   else
  if a[l]>b then k:=l-1    end;
if not s then writeln (' має елемент з номером ',l)
         else writeln (' не має жоден елемент');
end.