Нарисовать звезду, используя линии

 SetBrushColor(clYellow);
  Line(290, 111, 240, 190);
  Line(240, 190, 171, 190);
  Line(170, 190, 241, 250);
  Line(241, 250, 209, 320);
  Line(209, 320, 290, 289);
  Line(290, 289, 369, 318);
  Line(369, 318, 340, 248);
  Line(340, 248, 410, 190);
  Line(410, 190, 340, 190);
  Line(340, 190, 289, 111);

uses graphabc;
type point=record
           x,y:integer
           end;
procedure star(x,y,r,n:integer);
var p:array[1..25] of point;
    u,du:real;
    i,r1:integer;
begin
u:=pi/2; {начальный угол}
du:=pi/n;{угол поворота}
r1:=r div 4;{внутренний радиус}
{координаты вершин}
for i:=1 to 2*n do
 begin
  if i mod 2=0 then
   begin
    p[i].x:=x+round(r1*cos(u));
    p[i].y:=y-round(r1*sin(u));
   end
  else
   begin
    p[i].x:=x+round(r*cos(u));
    p[i].y:=y-round(r*sin(u));
   end;
  u:=u+du;
 end;
p[2*n+1]:=p[1];
{закраска}
setpencolor(clYellow);
setbrushcolor(clYellow);
polygon(p,2*n+1);
end;