USES CRT;
VAR t:text;
const n=1000;
linia:array[0..1000] of string;
linia:t[0..1000] of integer;
i,j,min,x,zakres:integer;
BEGIN
clrscr;
//wczytanie pliku i takie tam innne
assign(t, 'input.txt');
reset(t);
read(t,linia[0]);
for i:=1 to n do
begin
Readln(t,linia[i]);
Read(t,znak_konca_wiersza);
Val(linia[i], t[i]) end;
//wczytanie liczby x
writeln('Podaj liczbe x: ');
readln(x);
//sortowanie
min:=1;
for i:=1 to n do
begin
for j:=i+1 to n do
begin
if t[min]>t[j] then
min:=j;
end;
linia:array[0..1000] o t[min]:=t[min]+t[i];
t[i]:=t[min]-t[i];
t[min]:=t[min]-t[i];
end;
//sprawdzenie binarnie
zakres:=500 for i=1 to n do
begin
if t[zakres]=x then
begin
writeln('Taka liczba jest w pliku!');
break;
end;
if t[zakres]>x then
begin
zakres:=zakres/2;
break;
end;
if t[zakres]<x then
begin
zakres:=zakres+zakres/2 break;
end;
end;
writeln('Takiej liczby nie ma w pliku!');
close(t);
END.