Data commit

Task/Leonardo-numbers/Modula-2/leonardo-numbers.mod2

@@ -0,0 +1,34 @@
+MODULE Leonardo;
+FROM FormatString IMPORT FormatString;
+FROM Terminal IMPORT WriteString,WriteLn,ReadChar;
+
+PROCEDURE leonardo(a,b,step,num : INTEGER);
+VAR
+    buf : ARRAY[0..63] OF CHAR;
+    i,temp : INTEGER;
+BEGIN
+    FOR i:=1 TO num DO
+        IF i=1 THEN
+            FormatString(" %i", buf, a);
+            WriteString(buf)
+        ELSIF i=2 THEN
+            FormatString(" %i", buf, b);
+            WriteString(buf)
+        ELSE
+            FormatString(" %i", buf, a+b+step);
+            WriteString(buf);
+
+            temp := a;
+            a := b;
+            b := temp + b + step
+        END
+    END;
+    WriteLn
+END leonardo;
+
+BEGIN
+    leonardo(1,1,1,25);
+    leonardo(0,1,0,25);
+
+    ReadChar
+END Leonardo.