d <- c(12, -3, 14, 8, 9, 1, 12, 10, 4, 8, 0, -3, 14, 4, 14, 12, 12, 8, 0, 3)
n <- cumsum(c(0, d))
D <- diff(n, 7)
for (i in which(D == max(D))) {
    cat(i, "～", i + 6, "日目: ", sep = "")
    cat(n[i + 0:6], "\n")
}