for (i in 1:5) {
  cat("saya suka belajar Komputasi Statistika\n")
}
## saya suka belajar Komputasi Statistika
## saya suka belajar Komputasi Statistika
## saya suka belajar Komputasi Statistika
## saya suka belajar Komputasi Statistika
## saya suka belajar Komputasi Statistika
kategori_umur <-function(x){
  cat("Umur Anda: ", x, "\nAnda Termasuk ")
  if (x >= 0 && x < 12) {    cat("Kategori Anak-anak\n")
  }
  if (x >= 12 && x < 25) {    cat("Kategori Remaja\n")
  }
  if (x >= 25 && x < 60) {    cat("Kategori Dewasa\n")
  }
  if (x >= 60) {              cat("Kategori Lansia\n")
  }
}
kategori_umur(20)
## Umur Anda:  20 
## Anda Termasuk Kategori Remaja
kategori_umur(60)
## Umur Anda:  60 
## Anda Termasuk Kategori Lansia