// PascalABC.NET 3.0, сборка 1157 от 02.02.2016
uses
GraphABC;
begin
Pen.Color:=clRed;
Line(60,180,60,80);
Line(60,80,100,40);
Line(100,40,200,40);
Arc(260,40,60,180,270);
Line(260,100,260,140);
Arc(260,180,40,90,180);
Line(220,180,60,180);
Circle(140,120,40)
end.
Результат выполнения программы во вложении.
