[LLI.T.A.L.K.E.R.]

Dim m(5,5)

For i%=1 to 5
 For j%=1 to 5
  m(i,j)=5*Rand(1,20)
  a%=m(i,j)
  ; //If (a=20) or (a=40) or (a=60) or (a=80) or (a=100) then Print "m["+Str(i%)+","+Str(j%)+"]="+Str(a%) ; тупо проверка через OR
  ; оптимизация:
  If (a/20)>0 and (a/20)<6 ; and (ЧислоЦелое?(a/20)) then проверка числа на целостность без справочника всегда страдала :(
  ; эх жаль, где-то скрыта здесь фича. Извиняйте
 Next
Next