Uses Graph;
Var gd, gm, k: Integer; 
Procedure PutCar(x,y,m: Integer); 
begin	{ Uzzīmēt mašīnu }
   SetFillStyle(1,14); Bar(x-3*m,y-m,x+m,y+m);
   SetFillStyle(1,12); Bar(x+m,y-2*m,x+3*m,y+m);
   SetFillStyle(1,7); FillEllipse(x-2*m,y+m,m,m);
   FillEllipse(x+2*m,y+m,m,m);
end;  {PutCar}
begin {Main}
    gd:=Detect; InitGraph(gd,gm,'');
    PutCar(100,100,10);  PutCar(300,200,7);  
    For k:=1 To 5 Do  PutCar(k*100,300,5);  
    Readln; CloseGraph;
end.