A-M baby

Task/Boolean-values/Modula-2/boolean-values.mod2

@@ -0,0 +1,17 @@
+MODULE boo;
+
+IMPORT  InOut;
+
+VAR     result, done            : BOOLEAN;
+        A, B                    : INTEGER;
+
+BEGIN
+   result := (1 = 2);
+   result := NOT result;
+   done := FALSE;
+   REPEAT
+     InOut.ReadInt (A);
+     InOut.ReadInt (B);
+     done := A > B
+   UNTIL done
+END boo.