Программа на QBasic, построение матрицы

Если честно, то плохо помню, что делает эта программа, судя по всему строит матрицу. CLS
RANDOMIZE TIMER
PRINT «Vvesti N»
INPUT n
DIM A(n, n)
FOR i = 1 TO n
FOR G = 1 TO n
A(i, G) = INT(RND * 20 — 10)
PRINT A(i, G);
NEXT G
PRINT
NEXT i
FOR i = 1 TO n
FOR G = 1 TO n
IF i = G THEN A(i, G) = 0
IF i > G THEN A(i, G) = 1
IF i < G THEN A(i, G) = i + G
NEXT G
NEXT i
FOR i = 1 TO n
FOR G = 1 TO n
PRINT A(i, G);
NEXT G
PRINT
NEXT i