uses
  GraphABC;

var
  a: array of integer := (100, 100, 150, 100, 170, 120, 150, 140, 100, 140, 80, 120);

begin
  MoveTo(a[0], a[1]);
  for i: byte := 2 to a.Length - 2 do
    if (i mod 2 = 0) then
      LineTo(a[i], a[i + 1]);
  LineTo(a[0], a[1]);
end.