Nomina

(define (nomina v)
  (if (>= v 1500000) (* v 0.25)
      (if (>= v 1000000) (* v 0.20)
          (if (>= v 500000) (* v 0.15)
              (if (>= v 250000) (* v 0.05) (* v 1))))))

(define (asistencia dias sueldo)
  (if (>= dias 3) (- (nomina sueldo) (* (nomina sueldo) 0.02)) (nomina sueldo)))

(asistencia 3 750000)
(asistencia 1 750000)
(asistencia 1 1650000)
(asistencia 3 1650000)
(asistencia 3 450000)
(asistencia 1 450000)