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