10 'Ввод двумерного массива MAS по столбцам
20 DIM MAS(30,20):FOR I=1 TO 20:FOR J=1 TO 30
30 INPUT MAS(J,I):PRINT MAS(J,I):NEXT J,I