Кольца

[caen21rus]

uses CRT, Graph;
var
	gd, gm : Integer;
const
	Min = 1;
	n = 3;
	m = 6;

procedure Draw(x, y : Integer; Size : Word);

var
  s1, s2 : Integer;
  i : Integer;

begin
	if Size > Min then
	begin
		s1 := Size div n;
		s2 := Round(Size * (n-1)/n);
		for i := 1 to m do
		begin
			Draw(x - Round(s2*sin(2*pi/m*i)),
				y + Round(s2*cos(2*pi/m*i)), s1);
		end;
		Draw(x,y,s1); {center}
	end;
	Circle(x, y, Size);
end;

begin
	gd := Detect;
	InitGraph(gd,gm,'c:\bp\bgi');
	Draw(320,240,200);
	ReadKey;
	CloseGraph;
end.

Не получается сделать такой рисунок

как убрать кругжки по середине?

[caen21rus]

тему можно удалить