Программа рисует картинку, состоящую из разноцветных кружков.

Program bubbles;
uses Graph, Crt;
var gd, gm, ec, uf: integer;
Begin
 gd:=Detect;
 gm:=0;
 InitGraph(gd, gm, ' ');
 Randomize;
 for gm:=1 to 500 do
 begin
 ec:=ec+1;
 if ec=16 then ec:=1;
 SetColor(ec);
 Circle(Random(GetMaxX), Random(GetMaxY), Random(gd+10));
 end;
 SetColor(Random(White));
 SetTextStyle(0, HorizDir, 5);
 OutTextXY(50, 29, 'Bubbles');
 ReadKey;
 CloseGraph;
End.

---