Построить группу кол заданного радиуса, центра которых равномерно смещении от общего центра по N направлениях. Количество по всем направлениям одинакова и равняется K — Pascal(Паскаль)

uses crt,graph;
const
  rad = 50;
  b   = 2*pi/5;
var
  a: Double;
  k,x,y,cx,cy,
  driver,mode:integer;
begin
  driver:=detect;
  initgraph(driver,mode,'e:\pascal\bp-2\bgi');
  a := 0;
  while a<(2*pi) do begin
    cx:=getmaxx div 2;
    cy:=getmaxy div 2;
    for k:=1 to 10 do begin
      x:= Round(10*k*COS(a));
      y:= Round(10*k*SIN(a));
      Ellipse(cx+x-rad,cy+y-rad,0,360, rad, rad);
   end;
   a:=b+a;
  end;
  readln;
  closegraph;
end.