{* Задача98 *}

REM basic

' Сформировать квадратную матрицу (15,15) следующего вида:
' 1 1 1 . . 1
' 1 2 2 . . 2
' 1 2 3 . . 3
' . . . . . .
' . . . . . .
' 1 2 3 . . 15


Dim a(15,15)
For i=1 To 15
For j=1 To 15
If i>j Then a(i,j)=j Else a(i,j)=i
Next
Next
For i=1 To 15
For j=1 To 15
PRINT a(i,j);
Next
PRINT
Next
End