99 bottles of beer: Difference between revisions
Content added Content deleted
Tags: Mobile edit Mobile web edit |
(PascalABC.NET) |
||
Line 9,621: | Line 9,621: | ||
=={{header|Pascal}}== |
=={{header|Pascal}}== |
||
See [[99 Bottles of Beer/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}}== |
=={{header|Perl}}== |