let () = Scanf.scanf "%d\n" @@ fun n -> let arr = Array.init n @@ fun i -> Scanf.scanf "%d " @@ fun d -> (i, d) in let minN = Array.fold_left (fun (ans, bfr) (i, n) -> if i = 0 then (ans, n) else if ans > n - bfr then (n-bfr, n) else (ans, n)) (max_int, snd arr.(0)) arr in let maxN = (snd arr.(n-1)) - (snd arr.(0)) in Printf.printf "%d\n%d\n" (fst minN) maxN