{* Таблица умножения *}

REM basic

' Таблица умножения


Dim tabum(1 To 9, 1 To 9) As Integer
For I=1 To 9
For J=1 To 9
tabum(I, J)=I*J
Next J
Next I
For I=1 To 9
For J=1 To 9
PRINT tabum(I,J);
Next J
PRINT
Next I
End