Дана матрица 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