program Bottles(input, output);
{ Alice Pascal version of 99 Bottles of beer (Bottles.ap) } 
{ See http://www.templetons.com/brad/alice.html           }
{ Philipp Winterberg, http://www.winterbergs.de           } 
var
	b : Byte;

begin
b := 99;
repeat
	writeln(b:2, ' bottle(s) of beer on the wall,');
	writeln(b:2, ' bottle(s) of beer');
	writeln('Take one down, pass it around,');
	b := b - 1;
	writeln(b:2, ' bottle(s) of beer on the wall.');
	writeln('');
until b = 0;
end.