99 Bottles of Beer

Voting

Bookmarking

Language SCAR

Date:	06/25/07
Author:	Kaitnieks & Dylock & Freddy199
URL:	http://freddy1990.com/scar
Comments:	0
Info:	http://dylock.net/scar
Score:	(2.00 in 5 votes)

program BeerBottler;

const WaitForRefill = True; //Time to wait (Milleseconds)
      RefillTime    = 1000; //between each saying if Wait = True

var i: Integer;
begin
  for i := 99 downto 1 do
  begin
    WriteLn(IntToStr(i) + ' bottle(s) of beer on the wall, '
      + IntToStr(i) + ' bottle(s) of beer!');
    WriteLn('Take one down, pass it around, '
      + IntToStr(i - 1) + ' bottle(s) of beer on the wall.');
    if WaitForRefill then Wait(RefillTime);
  end;
end.

Download Source | Write Comment

Alternative Versions

Comments

Download Source | Write Comment

Add Comment

Please provide a value for the fields Name, Comment and Security Code.
This is a gravatar-friendly website.
E-mail addresses will never be shown.
Enter your e-mail address to use your gravatar.

Please don't post large portions of code here! Use the form to submit new examples or updates instead!

one program in 1500 variations