{This is program written by compiler(st_k@inbox.ru) at 9.4(april 9)
}
type
	a=array[0..99] of integer;
var
	ar:a;		{box with spheres/ящик с шарами}
	i,		{counter/счетчик}
	max,
	ran: integer;
	ans,		{answer}
	rans:boolean;

function InArray(a:array of integer; r:integer):boolean;
	{Function returns true at presence of an element in a array or false otherwise/
	функция возращает истину при наличии элемента в массиве или лож в противном случае}
	var
		i:integer;
	begin
		InArray:=false;
		i:=Low(a);	
		while (i<=High(a) ) and ( InArray <> true ) do
		begin
			if r=a[i] then InArray:=true;
			inc(i);
		end;
	end;

function ReadAns():boolean;
	{Function processes user's input /
	функция обрабатывает ввод пользователя}
	var
		ans:string;
	begin
		readLn(ans);
		if (ans= (( ( ('1') or ('true') ) or  ('take') ) or ( ('t') or (('yes')  or ('y')) ) )) 
			then ReadAns:=true
		else ReadAns:=false;
	end;			

begin
	{Preparation/подготовка}
	randomize;
	max:=0;
	ans:=false;
	rans:=true;
	for i:=0 to 99 do
	begin
		ar[i]:=0;
	end;

	
	{We fill a array with casual not repeating numbers/
	заполняем массив случайными неповторяющимися числами}
	for i:=0 to 99 do
	begin
		ran:=random(10001);
		while (InArray(ar, ran)=true) do
		begin
			ran:=random(10001);
		end;
		
		ar[i]:=ran;
		
		if ar[i]> max then max:=ar[i];
	end;
	
	i:=0;
		
	{Process of game/процесс игры}
	while  (i<100) and (ans=false)  do
	begin
		WriteLn(ar[i]);
		ans:=ReadAns();
		if ans=true then 
			if ar[i]<max then rans:=false;
		inc(i);
	end;
	if rans=true then
		writeLn(1)
	else writeLn(0);
	read(i);
end.