Вот часть программы рисующаа машину:
Program car;
Uses crt,Graph;
var
st:string;
d,m,n,j:integer;
begin
d:=detect;
InitGraph(d,m,'d:\bp\bgi');
repeat
line(60,400,30,400);
line(70,370,110,370);
line(110,370,120,400);
line(120,400,300,400);
line(310,370,350,370);
line(360,400,440,400);
line(430,370,290,340);
line(240,300,100,300);
line(30,350,30,400);
line(30,350,100,300);
line(60,400,70,370);
line(300,400,310,370);
line(360,400,350,370);
line(440,400,430,370);
line(290,340,240,300);
circle(330,400,26);
circle(90,400,26);
until keypressed;
end.