Как в паскале нарисовать шестиконечную зведу?

переделай под свою
program dom;
uses graphABC,crt;
//var i,x,r:integer;
begin
setwindowwidth(500);
setwindowheight(600);
SetPenColor(clblue);
line(200,200,100,300); delay(100);
line(200,200,300,300); delay(100);
line(100,300,150,400); delay(100);
line(150,400,250,400); delay(100);
line(300,300,250,400); delay(100);
line(200,200,200,400); delay(100);
FloodFill(110,300,clFuchsia ); delay(100);
FloodFill(210,300,clred );
// r := 10; canv.moveto( x + r * cos(0), y + r*sin(0) );
//for i := 1 to 5 do canv.lineeto( x + r * cos( i * 3 * pi / 2.5 ), y + r*sin( i * 3 * pi / 2.5) );
end.