В 2-х мерной матрице из 3-х строк и 2-х столбцов найти количество столбцов содержащих хотя бы 1 положительный элемент — QBasic(Бейсик)

dim a(3,2)
for i=1 to 3
for j=1 to 2
input a(i,j)
next
next
for j=1 to 2
f=0 
 for i=1 to 3
  if  a(i,j)>0 then f=1
 next
s=s+f
next
print s