#| BEGIN (Введите свое решение) |#
(define (square-root x)
  (define (average x y) (/ (+ x y) 2))
  (define (improve guess) (average guess (/ x guess)))

  (define (good-enough? guess prev)
    (< (abs (- guess prev)) 0.001))
  
  (define (square-iter guess prev)
    (if (good-enough? guess prev)
        guess
        (square-iter (improve guess) guess)))
  
  (square-iter 1.0 10.0))

#| END |#