Ответ:
program robot;
uses graphabc;
begin
brush.Color:=clblack;
rectangle(270,200,370,310);
rectangle(280,130,360,197);
rectangle(280,313,310,395);
rectangle(330,313,360,395);
rectangle(247,200,267,290);
rectangle(373,200,393,290);
rectangle(305,110,310,130);
rectangle(330,110,335,130);
brush.Color:=clwhite;
rectangle(290,150,310,170);
rectangle(330,150,350,170);
rectangle(315,165,325,175);
rectangle(305,180,335,185);
end.
Объяснение:
Смотри картинку
