Паскаль. Информатика. Помогите пожалуйста на паскале звездочку нарисовать, графически. Т. е код напишите, пожалуйста.

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) );