var n, i; fun fib (n) { if n <= 1 then 1 else (fib (n-1) + fib (n-2)) fi } n := read (); for i := n, i >= 1, i := i-1 do write (i); write (fib (i)) od