Помогите составить рисункок звезды и нарисовать его в системе         Pascal    ABC

uses abcObjects,graphabc; var s:starabc; begin s:=new StarABC(Window.Width div 2,Window.Height div 2,60,120,5,clYellow); for var i:=5 to 40 do begin Sleep(50); S.Count:=I; end; for var i:=40 downto 5 do begin Sleep(50); S.Count:=I; end; for var i:=1 to 360 do S.Angle:=I; for var i:=360 downto 1 do S.Angle:=I; end.