($n,$m)=glob<>;
$a0=<>;
@a=sort{$b-$a}<>;
if($m*2==$n){
	print $a[-1];
	exit;
}

$b=3e9;
for$i(0..$m-1){
	$x=$a[$i]+$a[$m*2-1-$i];
	$b=$x if $b>$x;
}
$o=-1;
for(@a){
	if($_+$a0>=$b){
		$o=$_;
	}
}
print $o;