// PascalABC.NET
uses GraphWPF;
begin
SetMathematicCoords(0, 26, 0);
Pen.Color:=Colors.DodgerBlue;
Pen.Width:=0.1;
DrawCircle(6,3,1);
DrawCircle(11,3,1);
DrawCircle(15,3,1);
DrawCircle(17,3,1);
DrawCircle(20,3,1);
DrawCircle(22,3,1);
DrawCircle(6,11,0.5);
DrawCircle(7,13,1);
DrawCircle(9,15,1.5);
DrawRectangle(4,7,5,-3);
DrawRectangle(9,4,4,6);
DrawRectangle(10,9,2,-2);
DrawRectangle(5,10,1,-3);
DrawRectangle(14,9,9,-5);
Line(13,5,14,5);
end.
// PascalABC.NET
uses GraphWPF;
begin
SetMathematicCoords(0, 26, 0);
Pen.Color:=Colors.DodgerBlue;
Pen.Width:=0.1;
DrawCircle(6,3,1);
DrawCircle(11,3,1);
DrawCircle(15,3,1);
DrawCircle(17,3,1);
DrawCircle(20,3,1);
DrawCircle(22,3,1);
DrawCircle(6,11,0.5);
DrawCircle(7,13,1);
DrawCircle(9,15,1.5);
DrawRectangle(4,7,5,-3);
DrawRectangle(9,4,4,6);
DrawRectangle(10,9,2,-2);
DrawRectangle(5,10,1,-3);
DrawRectangle(14,9,9,-5);
Line(13,5,14,5);
end.