99 bottles of beer: Difference between revisions
PascalABC.NET
Tags: Mobile edit Mobile web edit |
(PascalABC.NET) |
||
Line 9,621:
=={{header|Pascal}}==
See [[99 Bottles of Beer/Pascal]]
=={{header|PascalABC.NET}}==
<syntaxhighlight lang="delphi">
begin
for var i:=99 to 1 step -1 do
begin
Println(i,'bottles of beer on the wall');
Println(i,'bottles of beer');
Println('Take one down, pass it around');
Println(i-1,'bottles of beer on the wall');
Println
end;
end.</syntaxhighlight>
=={{header|Perl}}==
| |||