Integer comparison: Difference between revisions

Content deleted Content added
Line 382: Line 382:
MODULE Main;
MODULE Main;


FROM IO IMPORT Put ;
IMPORT IO;
FROM Fmt IMPORT Int ;


VAR a,b: INTEGER;
VAR a,b: INTEGER;
Line 390: Line 391:
b := IO.GetInt();
b := IO.GetInt();
IF a < b THEN
IF a < b THEN
Put(Int(a) & " is less than " & Int(b) & "\n");
IO.PutInt(a);
IO.Put(" is less than ");
IO.PutInt(b);
IO.Put("\n");
ELSIF a = b THEN
ELSIF a = b THEN
Put(Int(a) & " is equal to " & Int(b) & "\n");
IO.PutInt(a);
IO.Put(" is equal to ");
IO.PutInt(b);
IO.Put("\n");
ELSIF a > b THEN
ELSIF a > b THEN
Put(Int(a) & " is greater than " & Int(b) & "\n");
IO.PutInt(a);
IO.Put(" is greater than ");
IO.PutInt(b);
IO.Put("\n");
END;
END;
END Main.
END Main.