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

сложна:

Алгоритм такой: перемещаем чертежника по координатам (-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.