MODULE Main;

FROM IO  IMPORT Put, GetInt;
FROM Fmt IMPORT Int;

VAR a,b: INTEGER;

BEGIN
  a := GetInt();
  b := GetInt();
  IF a < b THEN
    Put(Int(a) & " is less than " & Int(b) & "\n");
  ELSIF a = b THEN
    Put(Int(a) & " is equal to " & Int(b) & "\n");
  ELSIF a > b THEN
    Put(Int(a) & " is greater than " & Int(b) & "\n");
  END;
END Main.