Data commit

Task/FizzBuzz/Simula/fizzbuzz.simula

@@ -0,0 +1,15 @@
+begin
+    integer i;
+    for i := 1 step 1 until 100 do
+    begin
+        boolean fizzed;
+        fizzed := 0 = mod(i, 3);
+        if fizzed then
+            outtext("Fizz");
+        if mod(i, 5) = 0 then
+            outtext("Buzz")
+        else if not fizzed then
+            outint(i, 3);
+        outimage
+    end;
+end