Pascal ABC.Помогите.Нужно нарисовать елку в Pascal ABC

uses drawman; begin Field(24,32);ToPoint(10,4);PenDown;ToPoint(10,1);ToPoint(14,1);ToPoint(14,4);ToPoint(22,4);ToPoint(16,14);ToPoint(20,14);ToPoint(15,22);ToPoint(18,22);ToPoint(12,31);ToPoint(6,22);ToPoint(9,22);ToPoint(4,14);ToPoint(8,14);ToPoint(2,4);ToPoint(14,4);PenUp;ToPoint(10,11);PenDown;ToPoint(10,10);ToPoint(9,10);ToPoint(8,9);ToPoint(8,7);ToPoint(9,6);ToPoint(11,6);ToPoint(12,7);ToPoint(12,9);ToPoint(11,10);ToPoint(10,10);PenUp;ToPoint(9,19);PenDown;ToPoint(9,18);ToPoint(8,17);ToPoint(9,16);ToPoint(10,17);ToPoint(9,18);PenUp;ToPoint(15,12);PenDown;ToPoint(15,11);ToPoint(14,11);ToPoint(14,9);ToPoint(16,9);ToPoint(16,11);ToPoint(15,11);PenUp;ToPoint(14,21);PenDown;ToPoint(14,20);ToPoint(13,19);ToPoint(14,18);ToPoint(15,19);ToPoint(14,20);PenUp;ToPoint(12,27);PenDown;ToPoint(12,26);ToPoint(11,25);ToPoint(11,24);ToPoint(13,24);ToPoint(13,25);ToPoint(12,26);PenUp;ToPoint(0,0); end.