#| BEGIN (Введите свое решение) |#
(define (f n)
  (if (< n 3)
      n
      (+ (f (- n 1)) (* 2 (f (- n 2))) (* 3 (f (- n 3))))))

(define (f-iter n)
  (define (iter a b c k)
    (if (= k 0)
        c
        (iter (+ a (* 2 b) (* 3 c)) a b (- k 1))))
  (iter 2 1 0 n))
#| END |#