画了个自行车

Program Myprog;
uses Graph,crt;
var
gd,gm,ecode: Integer;
begin
gd := Detect;
InitGraph(gd, gm,' ');
ecode:=GraphResult;
if ecode<>grOK then
begin
Writeln('Graphics error:', GraphErrorMsg(ecode));
exit;
end;
setcolor(3);
SetLineStyle(0,2,1);
circle(220,340,100);
circle(620,340,100);
circle(380,320,20);
circle(360,380,10);
circle(420,260,10);
line(220,340,350,200);
line(220,340,380,320);
line(350,200,600,200);
line(380,320,600,200);
line(600,200,620,340);
line(610,100,600,200);
line(350,200,350,170);
line(320,190,350,170);
line(380,160,350,170);
line(330,110,380,160);
line(320,190,330,110);
line(540,110,610,100);
line(540,60,610,100);
line(380,320,360,380);
line(380,320,420,260);
readln;
closegraph;
end.