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

Пожалуйста

я хз так бы ответил)

Аааа сложна: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.