5 OPEN"grp:"AS#1 10 COLOR 15,4,15 ' Начальная установка 20 SCREEN 5 ' экрана 30 LINE(40,60)-(80,110),3,BF ' Рисуем прямоугольник 40 COPY (40,60)-(80,110) TO (100,60),,TAND ' Копия прямоугольника 50 Y=POINT (110,70) ' Цвет точки из копии 60 I$=INPUT$(1) ' 70 PRESET(90,120):PRINT #1,"Цвет копии равен ";Y 'Вывод цвета копии 80 I$=INPUT$(1)