Uses Graph, CRT;
BEGIN
 InitGraph(..);{ПАРАМЕТРЫ ФУНКЦИИ ПОДСТАВЬТЕ САМИ}    
 SetLineStyle(SolidLn,0,ThickWidth);
 Line(0,240,280,240);
 Line(140,0,140,480);
 Rectangle(20,20,120,220);
 Rectangle(160,20,260,220);
 Circle(70,310,50);
 Ellipse(500,140,0,360,50,25);
 Ellipse(500,340,180,360,50,25);
 Line(450,140,450,340);
 Line(550,140,550,340);
 SetLineStyle(DashedLn,0,NormWidth);
 Line(20,220,20,360);
 Line(120,220,120,360);
 Line(120,20,160,20);
 Line(120,220,160,220);
 Line(20,260,140,260);
 Line(20,360,140,360);
 Line(160,220,160,240);
 Line(260,220,260,240);
 Arc(140,240,270,360,20);
 Arc(140,240,270,360,120);
 ReadKey;
 CloseGraph;
END.