type
	a=array[0..99] of integer;
var
	ar:a;
	i, max : integer;
	ans, rans:(*boolean*)integer;
begin
	randomize;
	max:=0;
	ans:=0;
	rans:=0;
	for i:=0 to 99 do
	begin
		ar[i]:=0;
	end;

	for i:=0 to 99 do
	begin
		if random(10001) in ar[i] then ar[i]:=random(10001);
		if ar[i]> max then max:=ar[i];
	end;

	i:=0;

	while ( (i<99) and (ans<1) and (rans<1)) do
	begin
		writeln(ar[i]);
		readln(ans);
		if ar[i]<max then rans:=0;
		inc(i);
	end;
	write(rans);
	read(i);
end.