$m=($n=<>)>>1,print$m*($n-$m)+$n