uses GraphABC;
const
  K = 2.6;

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

procedure Draw(x, y, r: real);
begin
  RCircle(x, y, r / K);
  if r > 4 then
  begin
    var r2 := r;
    r := r / K;
    Draw(x, y - r2, r);
    Draw(x + r2, y, r);
    Draw(x, y + r2, r);
    Draw(x - r2, y, r);
  end;
end;

begin
  LockDrawing();
  Draw(Window.Width / 2, Window.Height / 2, 130);
  Redraw();
end.