Uses GraphABC;

begin

Rectangle(100,100,540,380);
FloodFill (320,240,clGold);
end.