program cmp_test (output);

begin

{The following should be false}

  if '2 ' < '1 '  then writeln ('Fail') else writeln ('Pass'); {LT}
  if '2 ' <= '1 ' then writeln ('Fail') else writeln ('Pass'); {LE}
  if '2 ' = '1 '  then writeln ('Fail') else writeln ('Pass'); {EQ}
  if '2 ' < '2 '  then writeln ('Fail') else writeln ('Pass'); {LT}
  if '2 ' > '2 '  then writeln ('Fail') else writeln ('Pass'); {GT}
  if '2 ' <> '2 ' then writeln ('Fail') else writeln ('Pass'); {NE}

{The following should be true}

  if '2 ' > '1 '  then writeln ('Pass') else writeln ('Fail'); {GT}
  if '2 ' >= '1 ' then writeln ('Pass') else writeln ('Fail'); {GE}
  if '2 ' <> '1 ' then writeln ('Pass') else writeln ('Fail'); {NE}
  if '2 ' = '2 '  then writeln ('Pass') else writeln ('Fail'); {EQ}
  if '2 ' >= '2 ' then writeln ('Pass') else writeln ('Fail'); {GE}
  if '2 ' <= '2 ' then writeln ('Pass') else writeln ('Fail'); {LE}
end.