матрицы: Найти произведение элементов матрицы mхn, удовлетворяющих условию А[i,j]<=2, и количество неотрицательных (QBasic)

[eescad]

Помогите пожалуйста написать программу в qbasic:Найти произведение элементов матрицы mхn, удовлетворяющих условию А[i,j]<=2, и количество неотрицательных остальных элементов

[ZX Spectrum-128]

Вроде так

m=3
n=3

Dim i As Integer
Dim j As Integer

p=1
kol=0

Dim a(1 To m, 1 To n) As Double
Print "vyvod massiva"



For i=1 To m
	For j=1 To n
		a(i,j)=5*Rnd-3
		Print(a(i,j)),
	Next j
	Print
Next i

For i=1 To m
	For j=1 To n
		If a(i,j)<=2 Then
			p=p*a(i,j)
		EndIf
		If a(i,j)<0 Then
			kol=kol+1
		EndIf
	Next j
Next i	
	
Print "Kolichestvo otricatelnyh elementov",kol'
Print "proizvedenie elementov, bolshe 2",p
sleep