(define (veces-valor distancia)
  (/ (add1 distancia) 2))

(define (suma-consecutivos min max)
  (let* ([distancia (- max min)]
         [valor (+ max min)])
    (* valor (veces-valor distancia))))

(suma-consecutivos (add1 0) (sub1 101))