output tm 1

for (i in 1:7) {cat("Aku kaya\n")}

## Aku kaya
## Aku kaya
## Aku kaya
## Aku kaya
## Aku kaya
## Aku kaya
## Aku kaya

kategori <- function(x) {
  cat("Nilai ISPU: ", x, "\nKategori Kualitas Udara: ", sep = "")
  if (x >= 0 && x <= 50) {
    cat("Baik\n")
  }
  if (x >= 51 && x <= 100) {
    cat("Sedang\n")
  }
  if (x >= 101 && x <= 200) {
    cat("Tidak Sehat\n")
  }
  if (x >= 201 && x <= 300) {
    cat("Sangat Tidak Sehat\n")
  }
  if (x > 300) {
    cat("Berbahaya\n")
  }
}

# Pemanggilan fungsi
kategori(45)

## Nilai ISPU: 45
## Kategori Kualitas Udara: Baik

kategori(135)

## Nilai ISPU: 135
## Kategori Kualitas Udara: Tidak Sehat