Рисование линии, прямоугольника, окружности

Пример 1

Программа, рисующая линию:

Program Line;
Uses GraphABC;

Begin
Line(100,100,350,350);
end.

Пример 2

Программа, рисующая прямоугольник:

Program Risunok;
Uses GraphABC;

Begin
Rectangle(100,100,250,250);
 end.

Пример 3

Программа, рисующая бирюзовый круг:

Program Krug;
Uses GraphABC;

Begin
SetBrushColor(clAqua );
Circle(50,100,30);
End.