Найти произведение индексов элементов в первой строке матрицы - QBasic

Формулировка задачи:

Здравствуйте, помогите разобраться нужно написать программу вид массива 4 4 4 4 3 3 3 0 2 2 0 0 1 0 0 0 далее полученный массив напечатать. Найти произведение индексов элементов в первой строке, а затем в последней, и сравнить их. Результаты напечатать с соответствующими заголовками я пока смогла написать только сам массив

CLS
DIM A (4,4)
DATA 4,4,4,4
DATA 3,3,3,0
DATA 2,2,0,0
DATA 1,0,0,0
FOR i=1 TO 4
FOR j=1 TO 4
READ A(i,j)
PRINT a(i,j);
NEXT j
PRINT
NEXT i

заранее спасибо

Решение задачи: «Найти произведение индексов элементов в первой строке матрицы»

Листинг программы

CLS
   DIM a(4, 4)
DATA 4,4,4,4,3,3,3,0
DATA 2,2,0,0,1,1,1,1
 
   FOR i = 0 TO 15   ' Матрицу в массив
      READ a((i \ 4) + 1, (i MOD 4) + 1)
   NEXT
   p = 1: p2 = 1
                     '  Произведение индексов
   FOR i = 1 TO 4
      p = p * i
      p2 = p2 * i * 4
   NEXT i
 
                     '  Матрицу на экран
   FOR i = 1 TO 4
      FOR j = 1 TO 4
         PRINT a(i, j);
      NEXT j: PRINT
   NEXT i
   IF p > p2 THEN PRINT "p > p2"
   IF p < p2 THEN PRINT "p < p2"
   IF p = p2 THEN PRINT "p = p2"
   PRINT "Proizvedenie 1:"; p
   PRINT "Proizvedenie 2:"; p2

Объяснение кода листинга программы

Объявляется матрица a(4,4) и присваиваются значения элементам матрицы.
Задаются значения для переменных i, j, k, m.
Происходит перебор элементов матрицы с помощью цикла FOR и присваивание значений элементов массиву a.
Инициализируются переменные p и p2 значением 1.
Происходит перебор строк матрицы с помощью цикла FOR и умножение значений элементов строки на p и p2.
Выводится матрица на экран с помощью цикла FOR и вложенного цикла FOR.
Сравниваются значения p и p2 и выводится соответствующее сообщение.
Выводятся значения p и p2.
Выводится произведение 1.