program BeerBottler;

const WaitForRefill = True; //Time to wait (Milleseconds)
      RefillTime    = 1000; //between each saying if Wait = True

var i: Integer;
begin
  for i := 99 downto 1 do
  begin
    WriteLn(IntToStr(i) + ' bottle(s) of beer on the wall, '