Найти произведение элементов, расположенных в заштрихованной части матрицы

' Наша матрица
 
 DATA 3,  1,  7,  4
 DATA 2, 12,  0,  2
 DATA 9, 10, 18,  1
 DATA 6,  8,  3, 13
 
 ' Массив под матрицу (LONG означает 32 бита, целое, со знаком)
 
 DIM A(4, 4) AS LONG
    
  CLS     ' Очистим экран
 
  FOR i = 1 TO 4
     FOR j = 1 TO 4
        READ A(j, i)  ' Читаем данные элемента из DATA в массив
        IF i < 6 - j THEN COLOR 10 ELSE COLOR 7 ' Подсветка зелёным
        PRINT A(j, i);
     NEXT
     PRINT   ' Печатаем следующую строку матрицы
  NEXT
 
    ' Найдём произведение
 
  Pr& = 1
  FOR i = 1 TO 4
     FOR j = 1 TO 4
        IF i < 6 - j THEN Pr& = Pr& * A(j, i)
     NEXT
  NEXT
 
    ' Выводим результат
 
  PRINT "Proizvedenye ="; Pr&

CLS
RANDOMIZE TIMER 
n = 3
DIM a(n, n), b(n, n), c(n, n)
FOR i = 1 TO n: FOR j = 1 TO n
        a(i, j) = INT(RND * 10) + 1
        b(i, j) = INT(RND * 10) + 1
        c(i, j) = a(i, j) * b(i, j)
NEXT: NEXT
PRINT "matrica a"
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT "matrica b"
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT b(i, j);
NEXT: PRINT: NEXT
PRINT "matrica c"
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT c(i, j);
NEXT: PRINT: NEXT

CLS: RANDOMIZE TIMER: n = 3
DIM a(n, n), b(n, n), c(n, n)
DATA 25,4,14
DATA 1,7,-10
DATA 31,12,2
DATA 1.6,2,2.1
DATA 1.5,3,3
DATA 1.8,4,0
FOR i = 1 TO n: FOR j = 1 TO n
        READ a(i, j)
NEXT: NEXT
FOR i = 1 TO n: FOR j = 1 TO n
        READ b(i, j)
        c(i, j) = a(i, j) * b(i, j)
NEXT: NEXT
PRINT "matrica a"
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT a(i, j);
NEXT: PRINT: NEXT
PRINT "matrica b"
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT b(i, j);
NEXT: PRINT: NEXT
PRINT "matrica c"
FOR i = 1 TO n: FOR j = 1 TO n
        PRINT c(i, j);
NEXT: PRINT: NEXT