$n=<>;
for(0..$n-1){
	$f[$_]=[<>=~/\S+/g];
}

for$i(0..$n/2-1){
	$j=$i*2;
	$k=$i*2+1;
	$cd=$f[$j][$k];
	$ca=$k;
	$cb=$j;
	for$a(0..$j-1){
		for$b(0..$j-1){
			if($a-$b){
				$d=$f[$j][$a]+$f[$k][$b]-$f[$a][$l[$a]]-$f[$b][$l[$b]]+$f[$l[$a]][$l[$b]];
				if($cd<$d){
					$cd=$d;
					$ca=$a;
					$cb=$b;
				}
			}
		}
	}
	$s+=$cd;
	$la=$l[$a]; $lb=$l[$b]; $l[$a]=$lb; $l[$b]=$la;
	$l[$j]=$ca; $l[$ca]=$j;
	$l[$k]=$cb; $l[$cb]=$k;
}
print$s;