$n=<>;
@a=glob<>;
$r=1e6;
for(0..$n-2){
	$r=$a[$_+1]-$a[$_] if $r>$a[$_+1]-$a[$_];
}
print$r,$/,$a[$n-1]-$a[0];