Решить эту по информатике . мне ​в интернете можете не искать , нету. нодо самим придумать .

uses GraphABC;

procedure flower(x:integer);

begin

MoveTo (x,50);

LineTo (x-20,30);

LineTo (x,10);

LineTo (x+20,30);

LineTo (x,50);

LineTo (x,80);

LineTo (x+13,47);

end;

var x,i:integer;

begin

SetWindowWidth(800);

SetWindowHeight(90);

SetPenWidth(2);

x:=50;

for i:=1 to 11 do

begin

flower(x);

x:=x+70;

end

end.