File:Фрактальные окружности.png

uses GraphABC;
const
  N = 5;

procedure RCircle(x, y, r: real):=Circle(Round(x), Round(y), Round(r)); 

procedure Draw(x, y, r: real);
begin
  var r1 := r / 3; 
  RCircle(x, y, r); 
  RCircle(x, y, r1);
  
  if r > 10 then 
    Draw(x, y, r1);
  
  var angle := Pi / 2; 
  for var i := 0 to N - 1 do 
  begin
    var r2 := 2 * r1;
    var cx := x + r2 * Cos(angle); 
    var cy := y + r2 * Sin(angle); 
    RCircle(cx, cy, r1);
    
    if r > 10 then 
      Draw(cx, cy, r1);
    
    angle := angle + 2 * Pi / N; 
  end; 
end;

begin
  SetWindowSize(400, 400); 
  CenterWindow(); 
  
  LockDrawing();
  Draw(Window.Width div 2, Window.Height div 2, 180);
  Redraw();
end.