June 2018 Update

Task/Even-or-odd/Modula-2/even-or-odd.mod2

@@ -0,0 +1,15 @@
+MODULE EvenOrOdd;
+FROM FormatString IMPORT FormatString;
+FROM Terminal IMPORT WriteString,ReadChar;
+
+VAR
+    buf : ARRAY[0..63] OF CHAR;
+    i : INTEGER;
+BEGIN
+    FOR i:=-5 TO 5 DO
+        FormatString("%i is even: %b\n", buf, i, i MOD 2 = 0);
+        WriteString(buf)
+    END;
+
+    ReadChar
+END EvenOrOdd.