program YellowDots;uses GraphABC;
constyellow = clYellow;blue = clBlue;numDots = 250;
vari, x, y: integer;
beginSetWindowSize(800, 600);
for i := 1 to numDots dobeginx := Random(WindowWidth);y := Random(WindowHeight);
end;end.
program YellowDots;
uses GraphABC;
const
yellow = clYellow;
blue = clBlue;
numDots = 250;
var
i, x, y: integer;
begin
SetWindowSize(800, 600);
for i := 1 to numDots do
Brush.Color := blue;begin
x := Random(WindowWidth);
y := Random(WindowHeight);
Rectangle(0, 0, WindowWidth, WindowHeight);
Brush.Color := yellow;
FillCircle(x, y, 5);
end;
end.