Rosetta Code

99 Bottles of Beer/Pascal: Difference between revisions

Page Discussion

99 Bottles of Beer/Pascal (view source)

Revision as of 19:28, 2 September 2015

91 bytes added ,  8 years ago
m
→‎{{header|Pascal}}: indentation changes
m (→‎{{header|Pascal}}: oops, forgot a writeln at the end of the verse)
m (→‎{{header|Pascal}}: indentation changes)
Line 100:
=={{header|Pascal}}==
<lang pascal>program BottlesOfBeer;
 
var
i: Integerinteger;
 
begin
for i := 99 downto 1 do
if i = 1 then begin
writeln('One bottle of beer on the wall');begin
writeln('One bottle of beer on the wall');
writeln('Take one down,One passbottle itof aroundbeer');
writeln('No more bottlesTake ofone beerdown, onpass theit wallaround');
writeln(i, 'No more bottles of beer on the wall');▼
end else begin▼
writeln(i, ' bottles of beer on the wall');end
▲ end else begin
▲ writeln(i, ' bottles of beer');
writeln('Take one down, pass it around');begin
if writeln(i, ' bottles of beer =on 2the thenwall');
writeln(i, 'One bottlebottles of beer on the wall');
else writeln('Take one down, pass it around');
writeln(if i - 1, ' bottles of beer on= the2 wall')then
writeln;('One bottle of beer on the wall')
end; else
writeln(i - 1, ' bottles of beer on the wall');
end. </lang>▼
writeln;
end;
end.
▲end. </lang>
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/251807"