Нарисовать один из узоров в паскаль*тут фото

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.

Объяснение:

картинка