$|=1;
$n=<>;
print $n%2?1:2,$",$n+1>>1,$/;
while(<>>1){
	($k,$x)=glob<>;
	print $k,$",$n-$k+2-$x,$/;
}