Составить линейный алгоритмчертёжника , который изображает звезду

Аааа сложна:DDDDDDDDDDDDD

Алгоритм такой: перемещаем чертежника по координатам (-9;2), (-3;3), (0;8), (3;3), (9;2), (5;-3), (6;-9), (0;-7), (-6;-9), (-5;-3), (-9;2) и рисуем звезду. Программа на PascalABC.NET: uses DrawMan; const zvezda: array[1..10, 1..2] of integer = ((7, 13), (10, 18), (13, 13), (19, 12), (15, 7), (16, 1), (10, 3), (4, 1), (5, 7), (1, 12)); begin   Field(20, 20);   ToPoint(1, 12);   PenDown;   for var i := 1 to 10 do     ToPoint(zvezda[i, 1], zvezda[i, 2]); end.