($h,$a,$d)=glob<>;$b[$_]=($i=$b[$-=$_-$a]+2)-($-=$i-$b[$-=$_-$d]-3)for 1..$h;print$b[$h]/2