PROGRAM BEER;
BEGIN

 I := 100;
 S := "s";
 Bottle := " bottle";
 Punkt := ".";
 Komma := ",";
 Line1  := "                            "; 
 Line2  := "                            "; 
 Line1a := " of beer on the wall";
 Line2a := " of beeeeer . . . ,";
 Line3 := "Take one down, pass it around,"; 
 Line4 := "No more bottles of beer on the wall.";
 Line5 := "Time to buy more beer!";

 LOOP
 < 
  I := I-1;
  If I LT 10 Then
  <
    Line1 := Bottle + Line1a;
    Line2 := Bottle + Line2a;
  >
  ELSE
  <
    Line1 := Bottle + s + Line1a;
    Line2 := Bottle + s + Line2a;
  >;
  Writeln(I,TRIM(Line1),Komma);
  Writeln(I,TRIM(Line2));
  Writeln(Line3);
  If I EQ 1 Then
  <
    Writeln(Line4);
    Writeln(" ");
    Writeln(Line5);
    EXIT;
  >
  ELSE
  <
    If I EQ 10 Then
    <
      Line1 := Bottle + Line1a;
    >;
    Writeln(I-1,TRIM(Line1),Punkt);
    Writeln(" ");
  >; 
 >; /* End LOOP */
  
END;