{This is program written by compiler(st_k@inbox.ru) at 9.4(april 9)
}

var
	i,			{counter/счетчик}
	inte,
	max: integer;
	ans:boolean;	{answer}

begin
	{Preparation/подготовка}
	max:=0;
	ans:=false;
	
	for i:=0 to 50 do
	begin
		readLn(inte);
		if inte>max then max:=inte;
		Write('0');
	end;
		
	while ans=false do
	begin
		readLn(inte);
		if inte>max  then ans:=true;
		if ans=false then	Write('0')
		else Write('1');
	end;
	read(i);
end.