{This is program written by compiler(st_k@inbox.ru) at 9.4(april 9)
}
var
	inte,
	max: integer;
	ans:boolean;	{answer}

begin
	{Preparation/подготовка}
	max:=0;
	ans:=false;
	randomize;
	
	while ans=false do
	begin
		readLn(inte);
		if (random(100) < 25) and (inte>max) 
		then ans:=true
			else if inte>max then max:=inte;
		if ans=false then	Write('0')
			else Write('1');	
	end;
		
	read(inte);
end.