Для целочисленной матрицы найти для каждой строки число элементов, кратных 5 — QBasic(Бейсик)

FOR i=1 TO n
k=0
FOR j=1 TO m
IF a(i,j)MOD 5=0 THEN k=k+1
NEXT
PRINT "stroka=";i;" kol-vo=";k
NEXT