program bot99;

{$APPTYPE CONSOLE}

uses
  SysUtils;

procedure Sing(bot:integer);
begin
 Writeln('');
 case bot of
  0: begin
    Writeln('No more bottles of beer on the wall, no more bottles of beer.');
    Writeln('Go to the store and buy some more, '
      +'99 bottles of beer on the wall.');
   end