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

(define (f-iter n)
  (if (< n 3)
      n
      (f-iter-nested 0 1 2 (- n 2))))
(define (f-iter-nested a b c count)
  (if (= count 0)
      c
      (f-iter-nested  b c (+ c (* 2 b) (* 3 a)) (- count 1))))
; сам не смог вывести формулу, увы
#| END |#