#| BEGIN (Введите свое решение) |#
(define (square-root x)
  (define (square-iter guess prevGuess)
    (if (good-enough? guess prevGuess)
        guess
        (square-iter (improve guess) guess)))
  (define (improve guess)
    (average guess (/ x guess)))
  (define (average x y)
    (/ (+ x y) 2))
  (define (good-enough? guess prevGuess)
    (< (abs (- guess prevGuess)) 0.001))
  (square-iter 1.0 10.0))  
#| END |#