langs a-z

Task/FizzBuzz/Seed7/fizzbuzz.seed7

@@ -0,0 +1,18 @@
+$ include "seed7_05.s7i";
+
+const proc: main is func
+  local
+    var integer: number is 0;
+  begin
+    for number range 1 to 100 do
+      if number rem 15 = 0 then
+        writeln("FizzBuzz");
+      elsif number rem 5 = 0 then
+        writeln("Buzz");
+      elsif number rem 3 = 0 then
+        writeln("Fizz");
+      else
+        writeln(number);
+      end if;
+    end for;
+  end func;