99 Bottles of Beer/Pascal: Difference between revisions

Content added Content deleted

Inline

@@ Line 100: / Line 100: @@
 =={{header|Pascal}}==
 <lang pascal>program BottlesOfBeer;
 var
-    i: Integer;
+    i: integer;
 begin
     for i := 99 downto 1 do
-        if i = 1 then begin
+        if i = 1 then
-            writeln('One bottle of beer on the wall');
+            begin
-            writeln('One bottle of beer');
+                writeln('One bottle of beer on the wall');
-            writeln('Take one down, pass it around');
+                writeln('One bottle of beer');
-            writeln('No more bottles of beer on the wall');
+                writeln('Take one down, pass it around');
+                writeln('No more bottles of beer on the wall');
-        end else begin
-            writeln(i, ' bottles of beer on the wall');
+            end
+        else
-            writeln(i, ' bottles of beer');
-            writeln('Take one down, pass it around');
+            begin
-            if i = 2 then
+                writeln(i, ' bottles of beer on the wall');
-                writeln('One bottle of beer on the wall')
+                writeln(i, ' bottles of beer');
-            else
+                writeln('Take one down, pass it around');
-                writeln(i - 1, ' bottles of beer on the wall')
+                if i = 2 then
-            writeln;
+                    writeln('One bottle of beer on the wall')
-        end;
+                else
+                    writeln(i - 1, ' bottles of beer on the wall');
-end. </lang>
+                writeln;
+            end;
+end.
+</lang>