10 CLEAR 1000:MAXFILES=5:DIM M(200)
20 OPEN "Лещ" FOR OUTPUT AS#4
30 INPUT"Количество элементов";S
40 FOR K=1 TO S:X=INT(RND(1)*3000)/99:PRINT #4,USING "###.##";X:NEXT K
50 CLOSE #4