FizzBuzz: Difference between revisions

Content added Content deleted

Inline

@@ Line 405: / Line 405: @@
      )
  )
+=={{header|Oberon-2}}==
+<pre>
+MODULE FizzBuzz;
+   IMPORT Out;
+   VAR i: INTEGER;
+BEGIN
+   FOR i := 1 TO 100 DO
+      IF i MOD 15 = 0 THEN
+         Out.String("FizzBuzz");
+         Out.Ln;
+      ELSIF i MOD 5 = 0 THEN
+         Out.String("Buzz");
+         Out.Ln;
+      ELSIF i MOD 3 = 0 THEN
+         Out.String("Fizz");
+         Out.Ln;
+      ELSE
+         Out.Int(i,0);
+         Out.Ln;
+      END;
+   END;
+END FizzBuzz.
+</pre>
 =={{header|OCaml}}==