uses graphABC;
var i,x,y:integer;
Begin
SetWindowSize(700,150);
FloodFill(1,1,rgb(255,255,0));
x:=0;
y:=110;
for i:=1 to 5 do
begin
SetPenWidth(3);
SetPenColor(rgb(0,35,195));
SetBrushColor(rgb(255,0,0));
Line(x,y,x+70,y-70);
Line(x+70,y-70,x+140,y);
Pie(x+70,y-35,35,220,320);
Pie(x+140,y-35,35,40,140);
SetPenColor(rgb(0,181,5));
SetBrushColor(rgb(0,181,5));
Circle(x+70,y-15,7);
Circle(x+140,y-55,7);
x:=x+140
end
end.
Объяснение:
картинка
