procedure Main
var nBottles : Integer
var s : String
CgiCloseBuffer
nBottles:=99
s:='s'
while nBottles>=0 do
CgiWriteLn(Str(nBottles)+' bottle'+s+' of beer on the wall,')
CgiWriteLn(Str(nBottles)+' bottle'+s+' of beer,')
if nBottles=0 then
CgiWriteLn('Go to the store, buy some more,')
CgiWriteLn('99 bottles of beer on the wall.')
nBottles--
else
CgiWriteLn('Take one down and pass it around,')
nBottles--
if nBottles=1 then
s:=
else
s:='s'
end
CgiWriteLn(Str(nBottles)+' bottle'+s+' of beer on the wall,')
end
end
endproc
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment