Построение ломаной линии

NumPoints – задает число вершин PolyPoints – массив, содержащий координаты вершин

Program Graph4; {Построение треугольника}

Uses Crt, Graph;

Var pp:array[1..4] of PointType;

      i, DriverVar, ModeVar: integer;

Begin

     DriverVar:=Detect;

     InitGraph (DriverVar, ModeVar,’’);

     for i:=1 to 3 do

      begin pp[i].x:=Random(100); 

              pp[i].y:=Raddom(100)

     end;

     pp[4]:=pp[1];

     SetColor(12);

     DrawPoly(4, pp);

     Readkey;

     CloseGraph;

End.