Uses GraphABC; Begin
SetPenWidth (5) ;
SetPencolor (clGreen);
Arc (200, 240, 50, 90,270);
Line (200, 100, 200, 190) ;
Line (200,290, 200, 380);
Line (200, 100, 50, 100);
Line (200, 380, 50,380) ;
Line (50, 100, 50, 380) ;
Set PenWidth (7) ;
Circle (110,240,20) ;
FloodFill (120, 120, clPurple) ;
Набрать и изучить программу для
вычерчивания первой детали.
Самостоятельно продолжить программу и
создать вторую деталь.
End.​