30 CLS
40 PLAY"T255O5L16"
50 FOR I=1 TO 10
60    READ A$:PRINT"Название ноты: ";A$:PLAY A$
90 NEXT I
100 END
110 DATA C,A,E,F,G,B,D,G,E,C