Integer comparison: Difference between revisions
Content added Content deleted
Line 382: | Line 382: | ||
MODULE Main; |
MODULE Main; |
||
FROM IO IMPORT Put ; |
FROM IO IMPORT Put, GetInt; |
||
FROM Fmt IMPORT Int |
FROM Fmt IMPORT Int; |
||
VAR a,b: INTEGER; |
VAR a,b: INTEGER; |
||
BEGIN |
BEGIN |
||
a := |
a := GetInt(); |
||
b := |
b := GetInt(); |
||
IF a < b THEN |
IF a < b THEN |
||
Put(Int(a) & " is less than " & Int(b) & "\n"); |
Put(Int(a) & " is less than " & Int(b) & "\n"); |