Question

Задание 3. Составьте программу изображения на экране звездного
неба. Для этого на черном фоне нарисуйте 200 разноцветных кругов
радиусом от 0 до 5. Результат работы программы может быть такой,
как показано на рисунке ​

Answer 1

uses GraphABC;

var

 x, y, radius: integer;

begin

 Window.Title := 'Звездное небо';

 FloodFill(0, 0, clBlack);

 randomize;

 for Radius := 1 to 5 do

 begin

   for var n := 1 to 40 do

   begin

     x := random(windowwidth);

     y := random(windowheight);

     SetPenColor(clRandom);

     Circle(x, y, Radius);

   end;

 end;

end.