1*0c56280aSSorin Basca-- Compute fibonacci numbers 2*0c56280aSSorin Basca 3*0c56280aSSorin BascaFUN fib(n) = 4*0c56280aSSorin Basca IF n == 0 THEN 0 5*0c56280aSSorin Basca ELSE IF n == 1 THEN 1 6*0c56280aSSorin Basca ELSE fib(n - 1) + fib(n - 2) FI FI 7*0c56280aSSorin Basca 8*0c56280aSSorin BascaFUN main() = 9*0c56280aSSorin Basca LET n = READ() 10*0c56280aSSorin Basca IN 11*0c56280aSSorin Basca WRITE(fib(n)) 12