for (i in 1:7){cat("Saya minum air setiap hari\n")}
## Saya minum air setiap hari
## Saya minum air setiap hari
## Saya minum air setiap hari
## Saya minum air setiap hari
## Saya minum air setiap hari
## Saya minum air setiap hari
## Saya minum air setiap hari
cek_air <- function(gelas) {
  if (gelas >= 8) {
    print("Asupan air cukup")
  } else {
    print("Asupan air belum cukup")
  }
}

cek_air(9)
## [1] "Asupan air cukup"