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.