1) program gruzovik;

Uses GraphABC;

begin

setpenwidth (3);

rectangle(110,150,300,200);

setbrushstyle (bssolid);

floodfill(160,170,clRed);

rectangle(50,100,110,200);

floodfill(60,150,clYellow);

rectangle(60,110,100,145);

rectangle(40,150,50,200);

circle(90,218,18);

circle(250,218,18);

floodfill(90,218,clBlack);

floodfill(250,218,clBlack);

end.

2)program robot;

Uses GraphABC;

begin

setpenwidth (3);

setbrushstyle (bssolid);

rectangle(80,100,190,230);

floodfill(90,170,clSilver);

rectangle(60,130,80,190);

floodfill(64,135,clSilver);

rectangle(190,130,210,190);

floodfill(194,135,clSilver);

rectangle(190,130,210,190);

floodfill(194,135,clSilver);

rectangle(120,80,150,100);

floodfill(124,84,clSilver);

rectangle(100,50,170,90);

floodfill(104,54,clSilver);

circle(116,65,10);

circle(145,65,10);

line(120,80,150,80);

rectangle(100,229,130,280);

floodfill(104,234,clSilver);

rectangle(140,229,170,280);

floodfill(144,234,clSilver);

end.