Найти произведение элементов двумерного массива находящихся на главной диагонали матрицы размером (10*10) с вводом матрицы на Basic

REM пишу по памяти
CLS
n=10
p=1
FOR i=1 TO n
FOR j=1 TO n
PRINT "введи ("; i; ", "; j; ")-й элемент"
INPUT a(i,j)
IF i=j THEN p=p*a(i,j)
NEXT j
NEXT i
PRINT p
END