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

DIM A(5, 5)RANDOMIZE TIMERFOR 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    PRINTNEXT IPRINT "SUM="; SPRINT "VECTOR: ";FOR I = 1 TO 5    PRINT A(0, I); "; ";NEXT I