($w, $h, $n) = split/ /,<>;

@xy = <>;
chomp @xy;

@pyr = @a = (0) x ($w + 1);

for $i(1..$n){
	($x, $y)= split/ /, $xy[$i-1];
	if (abs($x-$y) >= $h - $pyr[$y]){
		print "bad answer: ";
		print $i, $/;
		exit
		}
	
	$a[$y]++;
	$pyr[$y] < $a[$y] and $pyr[$y] = $a[$y];
	
	$j = $y;
	while($j > 1 and $pyr[$j-1] < $pyr[$j]-1){
		$pyr[--$j]++
		}
	
	$j = $y;
	while($j < $w and $pyr[$j+1] < $pyr[$j]-1){
		$pyr[++$j]++
		}
		
	print "\@a  : @a",$/;
	print "\@pyr: @pyr", "\n---",$/;
	}

print "good answer: ";
print 0, $/