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

(define (f-iter n)
  (define (i a b c count)
    (if (= count 0)
        a
        (i (+ a (* 2 b) (* 3 c)) a b (- count 1))))
  (if (< n 3)
      n
      (i 2 1 0 (- n 2)))
)

#| END |#