Дана матрица 5х5. найти сумму элементов,лежащих под главной диагональю квадратной матрицей с. найти вектор, составленный из сумм по столбцам матрицы. нужно составить программу в qbasic

DIM A(5, 5)
RANDOMIZE TIMER
FOR I = 1 TO 5
    FOR J = 1 TO 5
        A(I, J) = INT(RND * 10)
        IF J < I THEN S = S + A(I, J)
        A(0, J) = A(0, J) + A(I, J)
        PRINT A(I, J); " ";
    NEXT J
    PRINT
NEXT I
PRINT "SUM="; S
PRINT "VECTOR: ";
FOR I = 1 TO 5
    PRINT A(0, I); "; ";
NEXT I