CLS : A$ = "Строка" OPEN "bas_txt" FOR OUTPUT AS #1 FOR J% = 1 TO 10 WRITE #1, A$, J%, SQR(J%) PRINT A$, J%, SQR(J%) NEXT J% CLOSE #1 PRINT OPEN "bas_txt" FOR INPUT AS #2 FOR J% = 1 TO 10 INPUT #2, B$, I%, R PRINT B$, I%, R NEXT J% CLOSE #2 END