program sumitrust2019C
	integer(8)::X
	integer(8)::flg=0
	
	read(5,*)X
	
	if(mod(X,100)==0)then
		flg=1
	else if(mod(mod(X,100),5)==0)then
		if(mod(X,100)/5<=X/100)then
			flg=1
		end if
	else if(mod(X,100)/5+1<=X/100)then
		flg=1
	end if
	
	print'(i0)',flg
end program sumitrust2019C
