Вычислить сумму и число элементов матрицы находящихся над главной диагональю — QBasic(Бейсик)

FOR i=1 TO n-1
FOR j=i+1 TO n
s=s+a(i,j)
k=k+1
NEXT
NEXT
PRINT s
PRINT k