CLS : DEFINT A-Z: A$ = "Строка" OPEN "bas_txt" FOR OUTPUT AS #1 FOR J = 1 TO 10 PRINT #1, A$; J, J * 2 PRINT A$; J, J * 2 NEXT J CLOSE #1 PRINT OPEN "bas_txt" FOR INPUT AS #2 FOR J = 1 TO 10 INPUT #2, B$, K1, K2 PRINT B$; K1, K2 NEXT J CLOSE #2 END