/*
99 browarów
*/

#S-TRIP#
ZMIENNA i : LICZBA;

POCZĄTEK
i := 99;
POWTÓRZ
PISZ(i, ' bottles of beer on the wall, ', i, ' bottles of beer');
PISZ('Take one down and pass it around');
i := i-1;
PISZ(i, ' bottles of beer on the wall.');

AŻDO i = 0;
PISZ('No more bottles of beer on the wall, no more bottles of beer');
PISZ('Go to the store and buy some more, 99 bottles of beer on the wall');
KONIEC.