func main()
	var n: int :: cui@inputInt()
	var a: []int :: #[n]int
	for i(0, n - 1)
		do a[i] :: cui@inputInt()
	end for
	var min: int :: a[1] - a[0]
	for i(0, n - 2)
		do min :: [min, a[i + 1] - a[i]].min()
	end for
	var max: int :: a[n - 1] - a[0]
	do cui@print("\{min}\n")
	do cui@print("\{max}\n")
end func