$n=<>;
@a=sort{$a-$b}glob<>;
for(1..$n){
	$\+=abs$a[$_-1]-$_;
}
print