Код: Выделить всё
uses graph,crt;
var n,mx,i,x,y,r,c:integer;
begin
clrscr;
randomize;
repeat
write('Kol. krugov do 100 n=');
readln(n);
until n in [1..100];
repeat
write('Max. radius krugov do 200 n=');
readln(mx);
until n in [1..mx];
x:=0;
initgraph(x,y,'');
for i:=1 to n do
begin
r:=random(mx-20)+20;
x:=random(getmaxX-2*r)+r;
y:=random(getmaxY-2*r)+r;
c:=random(15)+1;
setcolor(c);
Circle(x,y,r);
setfillstyle(1,c);
floodfill(x,y,c);
end;
readln
end.