Программа:
(define (ex1-3 x y z) ; определение процедуры ex1-3 с аргументами x, y и z
  (cond ((and (< x y) (< x z)) (+ (* y y) (* z z)))   ; если x - наименьшее число, то y и z - наибольшие
        ((and (< y x) (< y z)) (+ (* x x) (* z z)))   ; если y - наименьшее число, то x и z - наибольшие
        ((and (< z x) (< z y)) (+ (* x x) (* y y))))) ; если z - наименьшее число, то x и y - наибольшие

Вывод интерпретатора:
1 ]=> ex1-3 3 2 1

;Value 17: #[compound-procedure 17 ex1-3]

1 ]=>
;Value: 3

1 ]=>
;Value: 2

1 ]=>
;Value: 1