Uses graphABC;var i:integer;begin
moveto(250,50);Rectangle(250,50,400,400);FloodFill(255,55,clSilver);Rectangle(260,60,390,390);FloodFill(265,65,clOlive);Circle(325,120,45);Circle(325,220,45);Circle(325,320,45);for i:=1 to 100 doif i mod 10 = 1 then beginFloodFill(325,320,clSilver);FloodFill(325,120,clRed);sleep(2000);endelse if i mod 10 = 2 then beginFloodFill(325,120,clSilver);FloodFill(325,220,clYellow);sleep(2000);endelse if i mod 10 = 3 then beginFloodFill(325,220,clSilver);FloodFill(325,320,clGreen);sleep(2000);end;end.