begin
  integer i;

  i := 99;

  while i # 0 do begin

    printn (i);
    prints (" bottle"); if i # 1 then prints ("s");
    prints ("  of beer on the wall,\n");
    printn (i);
    prints (" bottle"); if i # 1 then prints ("s");
    prints ("  of beer,\n");
    prints ("take one down, pass it around,\n");
    i := i - 1;
    if i # 0 then printn (i) else prints ("no more");
    prints (" bottle"); if i # 1 then prints ("s");
    prints (" of beer on the wall.\n\n")

  end;

  prints ("Time to buy some more beer...\n")

end