' Sucess„o de Fibonacci ' Recursividade ' DECLARE FUNCTION fibonacci! (i!) INPUT "Termo"; k PRINT fibonacci(k) END FUNCTION fibonacci (i) PRINT i; SELECT CASE i CASE 1 fibonacci = 1 CASE 2 fibonacci = 1 CASE ELSE fibonacci = fibonacci(i - 1) + fibonacci(i - 2) END SELECT END FUNCTION