CLS : A$ = "Строка" OPEN "bas_bin" FOR BINARY AS #1 FOR J% = 1 TO 10 B = SQR(J%) PUT #1, , A$: PUT #1, , J%: PUT #1, , B PRINT A$, J%, B NEXT J% CLOSE #1 PRINT OPEN "bas_bin" FOR BINARY AS #1 FOR J% = 10 TO 1 STEP -1 GET #1, (J% - 1) * 12 + 1, A$ GET #1, (J% - 1) * 12 + 7, K% GET #1, (J% - 1) * 12 + 9, B PRINT A$, K%, B NEXT J% CLOSE #1 END