REM Упорядочение цветов радуги DATA "красный","оранжевый","желтый","зеленый" DATA "голубой","синий","фиолетовый" DIM A$(7), B$(3) FOR I = 0 TO 6: READ A$(I): NEXT I PRINT "Введите по одному в строке 3 цвета радуги" FOR I = 0 TO 2: INPUT B$(I): NEXT I PRINT "В радуге эти цвета следуют в таком порядке:" FOR J = 0 TO 6: FOR I = 0 TO 2 IF A$(J) = B$(I) THEN PRINT A$(J) NEXT I: NEXT J END