uses graphABC;
var i,x,y: integer;
begin
setwindowsize(400,500);
setpenwidth(7);
setpencolor(clgreen);
setbrushcolor(cllime);
x:=-30; y:=440;
for i:=1 to 4 do
begin
x:=x+90;
circle(x,y,50);
end;
for i:=1 to 4 do
begin
circle(x,y,50);
y:=y-90;
end;
line(300,70,310,120);
line(360,70,350,120);
circle(300,70,10);
circle(360,70,10);
circle(310,150,10);
circle(350,150,10);
arc(330,170,5,180,0);
arc(330,180,20,210,-30);
end.
