Lab 4(a)

# Name - AYUSH ANAND
# USN - 1MS21CI008

calculate_fine <- function(days_overdue) {
  if (days_overdue <= 7) {
    fine <- 0
  } else if (days_overdue <= 15) {
    fine_per_day <- 2
    fine <- (days_overdue - 7) * fine_per_day
  } else if (days_overdue <= 30) {
    fine_per_day <- 3
    fine <- 8 * 2 + (days_overdue - 15) * fine_per_day
  } else if (days_overdue <= 50) {
    fine_per_day <- 5
    fine <- 15 * 3 + 8 * 2 + (days_overdue - 30) * fine_per_day
  } else {
    fine <- 50  # Set a cap of 50 if days_overdue exceeds 50.
  }
  return(fine)
}

days_overdue <- as.integer(readline("Enter the number of days overdue: "))
fine_amount <- calculate_fine(days_overdue)

cat("Fine Amount:", fine_amount, "\n")

if (fine_amount == 0) {
  cat("No fine. Thank you for returning the book on time!!!\n")
} else {
  if (days_overdue >= 50) {
    cat("Fine exceeds the maximum. Please contact the library.\n")
  } else {
    cat("Please pay the fine within the specified period.\n")
  }
}