практическая 22 рисунок



program g;

uses graph, crt;

var d,r: integer;

begin

d:=9; r:=1;

InitGraph(d,r,’d:\tp7\units’);

setcolor(2);

setbkcolor(15);

circle(220,15,20);

circle(240,15,20);

circle(260,15,20);

circle(280,15,20);

circle(300,15,20);

circle(320,15,20);

circle(340,15,20);

circle(360,15,20);

circle(380,15,20);

circle(400,15,20);

circle(420,15,20);

circle(440,15,20);

circle(460,15,20);

circle(480,15,20);

circle(500,15,20);

circle(520,15,20);

circle(540,15,20);

circle(560,15,20);

circle(580,15,20);

circle(600,15,20);

circle(620,15,20);

circle(200,15,20);

circle(180,15,20);

circle(160,15,20);

circle(140,15,20);

circle(120,15,20);

circle(100,15,20);

circle(80,15,20);

circle(60,15,20);

circle(40,15,20);

circle(20,15,20);

circle(20,30,20);

circle(20,45,20);

circle(20,60,20);

circle(20,75,20);

circle(20,90,20);

circle(20,105,20);

circle(20,120,20);

circle(20,135,20);

circle(20,150,20);

circle(20,165,20);

circle(20,180,20);

circle(20,195,20);

circle(20,210,20);

circle(20,225,20);

circle(20,240,20);

circle(20,255,20);

circle(20,270,20);

circle(20,285,20);

circle(20,300,20);

circle(20,315,20);

circle(20,330,20);

circle(40,330,20);

circle(60,330,20);

circle(80,330,20);

circle(100,330,20);

circle(120,330,20);

circle(140,330,20);

circle(160,330,20);

circle(180,330,20);

circle(200,330,20);

circle(220,330,20);

circle(240,330,20);

circle(260,330,20);

circle(280,330,20);

circle(300,330,20);

circle(320,330,20);

circle(340,330,20);

circle(360,330,20);

circle(380,330,20);

circle(400,330,20);

circle(420,330,20);

circle(440,330,20);

circle(460,330,20);

circle(480,330,20);

circle(500,330,20);

circle(520,330,20);

circle(540,330,20);

circle(560,330,20);

circle(580,330,20);

circle(600,330,20);

circle(620,330,20);

circle(620,315,20);

circle(620,300,20);

circle(620,285,20);

circle(620,270,20);

circle(620,255,20);

circle(620,240,20);

circle(620,225,20);

circle(620,210,20);

circle(620,195,20);

circle(620,180,20);

circle(620,165,20);

circle(620,150,20);

circle(620,135,20);

circle(620,120,20);

circle(620,105,20);

circle(620,90,20);

circle(620,75,20);

circle(620,60,20);

circle(620,45,20);

circle(620,30,20);

line(45,35,595,35);

line(45,35,45,310);

line(45,310,595,310);

line(595,35,595,310);

circle(120,200,40);circle(120,200,35);

circle(170,200,40);circle(170,200,35);circle(120,200,5);circle(170,200,5);

circle(220,200,40);circle(220,200,35); circle(220,200,5);

circle(270,200,40);circle(270,200,35);circle(270,200,5);

circle(320,200,40);circle(320,200,35);circle(320,200,5);

circle(370,200,40);circle(370,200,35);circle(370,200,5);

circle(420,200,40);circle(420,200,35);circle(420,200,5);

circle(470,200,40); circle(470,200,35);circle(470,200,5);

circle(520,200,40); circle(520,200,35);circle(520,200,5);

line(130,130,130,153);line(130,130,160,130);line(160,130,160,150);

line(137,150,160,150);line(137,135,137,150);line(137,135,150,135);

line(150,135,150,145);line(150,145,155,145);line(155,134,155,145);

line(133,133,155,133);line(133,133,133,153);line(133,153,165,153);

line(165,130,165,153);line(165,130,195,130);line(195,130,195,150);

line(172,150,195,150);line(172,135,172,150);line(172,135,185,135);

line(185,135,185,145);line(185,145,190,145);line(190,133,190,145);

line(168,133,190,133);line(168,133,168,153);line(168,153,200,153);

line(200,130,200,153);line(200,130,230,130);line(230,130,230,150);

line(207,150,230,150);line(207,135,207,150);line(207,135,220,135);

line(220,135,220,145);line(220,145,225,145);line(225,133,225,145);

line(203,133,225,133);line(203,133,203,153);line(203,153,235,153);

line(235,130,235,153);line(235,130,265,130);line(265,130,265,150);

line(242,150,265,150);line(242,135,242,150);line(242,135,255,135);

line(255,135,255,145);line(255,145,260,145);line(260,133,260,145);

line(238,133,260,133);line(238,133,238,153);line(238,153,270,153);

line(270,130,270,153);line(270,130,300,130);line(300,130,300,150);

line(277,150,300,150);line(277,135,277,150);line(277,135,290,135);

line(290,135,290,145);line(290,145,295,145);line(295,133,295,145);

line(273,133,295,133);line(273,133,273,153);line(273,153,305,153);

line(305,130,305,153);line(305,130,335,130);line(335,130,335,150);

line(312,150,335,150);line(312,135,312,150);line(312,135,325,135);

line(325,135,325,145);line(325,145,330,145);line(330,133,330,145);

line(308,133,330,133);line(308,133,308,153);line(308,153,340,153);

line(340,130,340,153);line(340,130,370,130);line(370,130,370,150);

line(347,150,370,150);line(347,135,347,150);line(347,135,360,135);

line(360,135,360,145);line(360,145,365,145);line(365,133,365,145);

line(343,133,365,133);line(343,133,343,153);line(343,153,375,153);

line(375,130,375,153);line(375,130,405,130);line(405,130,405,150);

line(382,150,405,150);line(382,135,382,150);line(382,135,395,135);

line(395,135,395,145);line(395,145,400,145);line(400,133,400,145);

line(378,133,400,133);line(378,133,378,153);line(378,153,410,153);

line(410,130,410,153);line(410,130,440,130);line(440,130,440,150);

line(417,150,440,150);line(417,135,417,150);line(417,135,430,135);

line(430,135,430,145);line(430,145,435,145);line(435,133,435,145);

line(413,133,435,133);line(413,133,413,153);line(413,153,445,153);

line(445,130,445,153);line(445,130,475,130);line(475,130,475,150);

line(452,150,475,150);line(452,135,452,150);line(452,135,465,135);

line(465,135,465,145);line(465,145,470,145);line(470,133,470,145);

line(448,133,470,133);line(448,133,448,153);line(448,153,480,153);

line(480,130,480,153);line(480,130,510,130);line(510,130,510,150);

line(487,150,510,150);line(487,135,487,150);line(487,135,500,135);

line(500,135,500,145);line(500,145,505,145);line(505,133,505,145);

line(483,133,505,133);line(483,133,483,153);line(483,153,515,153);

repeat until keypressed;

end.






map