uses GraphABC

Begin

SetPenWidth(1);

SetPenStyle(psSolid);Line(50,100,400,100);

SetPenStyle(psDash); Line(50,100,400,150);

SetPenStyle(psDot); Line(50,100,400,200);

SetPenStyle(psDashDot); Line(50,100,400,250);

SetPenStyle(psDashDotDot); Line(50,100,400,300);

End.

4.4. Написать программу, которая выводит на экран линии разных цветов

Д/з: §7 (7.1), учебник «Информатика 11», 2010, задачи № 4.2, 4.4, записать краткий команд и выучить!