Анимация гирлянды на елке

program Elka;
 
uses
  GraphABC;
 
const
  colors: array[0.. 4] of Color =
  (clLightGreen, clRed, clBlue, clLightBlue, clYellow);
 
begin
  for var i := 1 to 100 do
  begin
    Pen.Color := RGB(2, 200, i);
    Line(100 - i, i, 100 + i, i);
  end;
  for var i := 1 to 100 do
  begin
    Pen.Color := RGB(0, i, 0);
    Line(100 - i, i + 100, 100 + i, i + 100);
  end;
  for var i := 1 to 100 do
  begin
    Pen.Color := RGB(0, i, 0);
    Line(100 - i, i + 200, 100 + i, i + 200);
  end;
  Setpenwidth(1);
  Setpencolor(clBrown);
  Rectangle(75, 301, 125, 375);
  FloodFill(77, 350, clBrown);
 
  Circle(350, 355, 80);
  FloodFill(350, 355, clLightBlue );
  Circle(350, 250, 55);
  FloodFill(350, 250, clLightBlue );
  Circle(350, 170, 45);
  FloodFill(350, 170, clLightBlue );
  Circle(322, 167, 7);
  FloodFill(322, 167, clGray );
  Circle(370, 167, 7);
  FloodFill(370, 167, clGray );
  
  LockDrawing;
  repeat
    
    Circle(50, 80, 20);
    Circle(153, 80, 20);
    Circle(100, 50, 15);
    Circle(100, 160, 20);
    Circle(50, 180, 20);
    Circle(153, 180, 20);
    Circle(100, 255, 20);
    Circle(153, 277, 20);
    Circle(50, 277, 20);
    
    FloodFill(50, 80,  colors[Random(5)]);
    FloodFill(153, 80, colors[Random(5)]);
    FloodFill(100, 50, colors[Random(5)]);
    FloodFill(100, 160, colors[Random(5)]);
    FloodFill(50, 180, colors[Random(5)]);
    FloodFill(153, 180, colors[Random(5)]);
    FloodFill(50, 277, colors[Random(5)]);
    FloodFill(100, 255, colors[Random(5)]);
    FloodFill(153, 277, colors[Random(5)]);
    Redraw;
    sleep(1);
  until false;
end.

program Elka;
 
uses
  GraphABC;
 
const
  colors: array[0.. 4] of Color =
  (clLightGreen, clRed, clBlue, clLightBlue, clYellow);
 
begin
  ClearWindow(clBeige); // <--- Добавь вот эту строку
 
  // или вот эту:
  // ClearWindow(RGB($FF, $FD, $D0));
 
  for var i := 1 to 100 do
  // ... дальше без изменений

program Elka;
 
uses
  GraphABC;
 
const
  colors: array[0.. 4] of integer =
  (clTeal, clRed, clBlue, clSkyBlue, clYellow);
var i:integer;
begin
LockDrawing;
repeat
 ClearWindow(clCream);
 for i := 1 to 100 do
 begin
  setpencolor(RGB(2, 200, i));
  Line(100 - i, i, 100 + i, i);
 end;
for i := 1 to 100 do
 begin
  setpencolor(RGB(0, i, 0));
  Line(100 - i, i + 100, 100 + i, i + 100);
 end;
for i := 1 to 100 do
 begin
  setpencolor(RGB(0, i, 0));
  Line(100 - i, i + 200, 100 + i, i + 200);
 end;
Setpenwidth(1);
Setpencolor(clBrown);
Rectangle(75, 301, 125, 375);
FloodFill(77, 350, clBrown);
Circle(350, 355, 80);
FloodFill(350, 355, clskyBlue );
Circle(350, 250, 55);
FloodFill(350, 250, clskyBlue );
Circle(350, 170, 45);
FloodFill(350, 170, clSkyBlue );
Circle(322, 167, 7);
FloodFill(322, 167, clGray );
Circle(370, 167, 7);
FloodFill(370, 167, clGray );
 Circle(50, 80, 20);
 Circle(153, 80, 20);
 Circle(100, 50, 15);
 Circle(100, 160, 20);
 Circle(50, 180, 20);
 Circle(153, 180, 20);
 Circle(100, 255, 20);
 Circle(153, 277, 20);
 Circle(50, 277, 20);
 FloodFill(50, 80,  colors[Random(5)]);
 FloodFill(153, 80, colors[Random(5)]);
 FloodFill(100, 50, colors[Random(5)]);
 FloodFill(100, 160, colors[Random(5)]);
 FloodFill(50, 180, colors[Random(5)]);
 FloodFill(153, 180, colors[Random(5)]);
 FloodFill(50, 277, colors[Random(5)]);
 FloodFill(100, 255, colors[Random(5)]);
 FloodFill(153, 277, colors[Random(5)]);
 Redraw;
 sleep(200);
until false;
end.

var w:GraphABCWindow;
begin
  w:=GraphABCWindow.Create;
  w.Clear(clBeige);