fib [0]: 1
fib [1]: 1
fib [n]: ((fib [(n - 2)]) + (fib [(n - 1)]))

main
{
    write ["Displaying nth Fibonacci number. Enter n: "]
    n <- read
    write [fib [n]]
    0
}