CLS TYPE qq a AS STRING * 6 n AS INTEGER r AS SINGLE END TYPE DIM b AS qq b.a = "Строка" OPEN "bas_rec" FOR RANDOM AS #1 FOR J% = 1 TO 10 b.n = J%: b.r = SQR(J%) PUT #1, , b PRINT b.a, b.n, b.r NEXT J% CLOSE #1 PRINT OPEN "bas_rec" FOR RANDOM AS #1 FOR J% = 10 TO 1 STEP -1 GET #1, J%, b PRINT b.a, b.n, b.r NEXT J% CLOSE #1 END