File:Разноцветные прямоугольники.png

uses GraphABC; 

procedure RRect(x, y, x1, y1: real; c: Color);
begin
  SetBrushColor(c); 
  FillRect(Round(x), Round(y), Round(x1), Round(y1)); 
end;

procedure Draw(x, y, l: real; c1, c2: Color);
begin
  var y1 := y - l * 2;
  RRect(x, y, x - l, y1, c1); 
  RRect(x, y, x + l, y1, c2); 
  
  if l > 10 then 
  begin
    var y2 := y - l;
    l := l / 2;
    Draw(x - l, y2, l, c1, c2); 
    Draw(x + l, y2, l, c1, c2); 
  end; 
end;

begin
  SetWindowIsFixedSize(true);
  ClearWindow(clBlack);
  
  LockDrawing();
  Draw(220, 420, 200, clBlack, clYellowGreen);
  Redraw();
end.