Fib matrice pseudo

subprogram fib()
{
    Intreg n

    citeste n

    mat:Interg[n][n]

    long fib, pre, antepre
    fib <- 0
    antepre <- 0
    pre <- 1

    pentru col=0,n-1,1 {

        pentru ln=0,col+1,1 {

            mat[ln][col - ln] <- fib

            fib     <- antepre + pre
            antepre <- pre
            pre     <- fib
        }
    }

    pentru ln=1,n,1 {

        pentru col=n-1,ln-1,-1 {

            mat[ln+(n-1)-col][col] <- fib

            fib     <- antepre + pre
            antepre <- pre
            pre     <- fib
        }
    }

    returneaza mat
}