<span>uses graphabc,crt;</span>
<span>var i:integer; h:real;</span>
<span>begin</span>
<span>randomize;</span>
<span>rectangle(280,130,320,320);</span>
<span>rectangle(250,10,350,260);</span>
<span>circle(300,55,35);</span>
<span>circle(300,135,35);</span>
<span>circle(300,215,35);</span>
<span>for i:=1 to 1000 do</span>
<span>begin</span>
<span>floodfill(300,55,clred);</span>
<span>delay(3000);</span>
<span>floodfill(300,55,clwhite);</span>
<span>delay(1000);</span>
<span>floodfill(300,135,clyellow);</span>
<span>delay(3000);</span>
<span>floodfill(300,135,clwhite);</span>
<span>delay(1000);</span>
<span>floodfill(300,215,clgreen);</span>
<span>delay(1000);</span>
<span>floodfill(300,215,clwhite);</span>
<span>delay(1000);</span>
<span>end;</span>
<span>end.</span>