(define (square x) (* x x))
(define (sum-of-squares x y) (+ (square x) (square y)))
(define (is-first-least? a b c) (and (< a b) (< a c)))

(define a 9)
(define b 1)
(define c 10)

(cond ((is-first-least? c a b)(sum-of-squares a b))
      ((is-first-least? a c b)(sum-of-squares c b))
      ((is-first-least? b a c)(sum-of-squares a c)))