Data commit

Task/Leonardo-numbers/Seed7/leonardo-numbers.seed7

@@ -0,0 +1,22 @@
+$ include "seed7_05.s7i";
+
+const proc: leonardo (in var integer: l0, in var integer: l1, in integer: add, in integer: count) is func
+  local
+    var integer: temp is 0;
+  begin
+    for count do
+      write(" " <& l0);
+      temp := l0 + l1 + add;
+      l0 := l1;
+      l1 := temp;
+    end for;
+    writeln;
+  end func;
+
+const proc: main is func
+  begin
+    write("Leonardo Numbers:");
+    leonardo(1, 1, 1, 25);
+    write("Fibonacci Numbers:");
+    leonardo(0, 1, 0, 25);
+  end func;