10 OPEN "TEST.DAT" FOR OUTPUT AS #1
15 D$=",":PRINT#1,"Кремний";D$;14;D$;28.0855:CLOSE#1
40 OPEN "TEST.DAT" FOR INPUT AS#1
50 FOR K%=1 TO 3:INPUT #1,A$:PRINT"Значение номер";K%;":";A$:NEXT K%
70 CLOSE#1