Помогите решить простую задачу

[Teh]

Первый раз с этим сталкиваюсь. Не знаю с чего начать. Может кто поможет объяснит, подскажет.
Задача такая: Нарисовать правильный многоугольник с задаваемым числом вершин.

[Карась]

Обсуждали много раз.
Кусок который создаёт массив координат вершин многоугольника по которым и надо строить.

Const Pi = 3.1415926;   
  
Var GV : array [1..10, 1..10] of Real;   
      i, n, R: Integer;   
      a : Real;   
  
Begin   
a := 0;   
R := 30; // Radius   
Readln (n);   
  
For i := 1 To n Do   
  Begin   
    GV[i,1] := R * cos(a * Pi/180);   
    GV[i,2] := R * sin(a * Pi/180);   
    a := a + 360/n;   
  End;   
  
Readln;   
End.

[-=<[Evklidd]>=-]

Ну и чтоб уж тему закрыть добавим:
Const Pi = 3.1415926;

Var GV : array [1..10, 1..10] of Real;
i, n, R: Integer;
a : Real;

Begin
a := 0;
R := 30; // Radius
Readln (n);

For i := 1 To n Do
Begin
GV[i,1] := R * cos(a * Pi/180);
GV[i,2] := R * sin(a * Pi/180);

LineTo(GV[i,1] ,GV[i,2]);
MoveTo(GV[i,1] ,GV[i,2]);

a := a + 360/n;
End;

Readln;
End.

[_Dmitry]

Я бы использовал другой формат для массива с координатами вершин и начертил многоугольник, как Polygon(GV) для которого просто изменяется и заливка (brush)

procedure TForm1.Button1Click(Sender: TObject);
var
  GV: array of TPoint;
  R,a: double;
  n,i,x0,y0: integer;
begin
  x0:=100; y0:=100; R:=50;
  n:=6;
  SetLength(GV,n);
  a:=0;
  for i:=0 to n-1 do
    begin
      GV[i]:=point(x0+round(R*cos(a)),y0-round(R*sin(a)));
      a:=a+2*pi/n;
    end;
  Canvas.Polygon(GV);
end;

[Teh]

Спасибо большое