i:=99;@While(i>1;@Prompt([OK]; "99 bottles of beer"; @Text(i) + " bottles of beer on the wall. " + @Text(i) + " bottles of beer. Take one down, pass it around. " + @Text(i-1) + " bottles of beer on the wall."); i:=i-1);@Prompt([OK]; "99 bottles of beer"; "Only one more bottle of beer on the wall. Only one more bottle of beer. Take it down, pass it around. No more bottles of beer on the wall.")