// Irie Pascal version of 99 Bottles of beer (Bottles.pas)
// See http://www.irietools.com/
// Philipp Winterberg, http://www.winterbergs.de  

program Bottles(output);  

var b: byte;  
    a, c: string; 

begin 
  a:= #32+#98+#111+#116+#116+#108+#101+#40+#115+#41+#32+#111+#102+#32+#98+#101+#101+#114; 
  c:= #32+#111+#110+#32+#116+#104+#101+#32+#119+#97+#108+#108;   
  b:= 99;  
  repeat 
    writeln(b:2, a, c, #44, #13, #10, b:2, a, #46, #13, #10, #84, #97, #107, #101, #32, 
            #111, #110, #101, #32, #100, #111, #119, #110, #44, #32, #112, #97, #115, 
            #115, #32, #105, #116, #32, #97, #114, #111, #117, #110, #100, #44);
    dec(b);
    writeln(b:2, a, c, #46, #13, #10);
  until b = 0; 
end.