A-M baby

Task/Integer-comparison/Modula-2/integer-comparison.mod2

@@ -0,0 +1,22 @@
+MODULE IntCompare;
+
+IMPORT InOut;
+
+VAR
+  A, B: INTEGER;
+
+BEGIN
+  InOut.ReadInt(A);
+  InOut.ReadInt(B);
+  InOut.WriteInt(A, 1);
+
+  IF A < B THEN
+    InOut.WriteString(' is less than ')
+  ELSIF A = B THEN
+    InOut.WriteString(' is equal to ')
+  ELSE
+    InOut.WriteString(' is greater than ')
+  END;
+  InOut.WriteInt(B, 1);
+  InOut.WriteLn
+END IntCompare.