Круговой фрактал

uses GraphABC;
procedure Draw (x,y,size:integer); //главная процедура
 var a,b,c:integer; 
     s,f,g:integer;
 begin
  a:=1;b:=6;c:=3; //параметры алгоритма
  if size > a 
   then
    begin
     f:=round(size/c ); //уменьшаем радиус
     g:=round(size*(c-1)/c ); 
     for s:= 1 to  b do
      Draw ( x - round ( g*sin ( 2*pi/b*s ) ) , y + round ( g*cos ( 2*pi/b*s ) ) , f ); //рисуем окружности
     Draw ( x, y, f ); //окружность в центре
    end;
  ellipse ( x - size, y - size, x + size, y + size );
 end; 
begin
  SetBrushStyle(bsclear);
  Setpencolor(clblue); //задаем цвет наших окружностей
  SetWindowTitle('Круговой фрактал');
  Draw(340,260,220);
end.