RosettaCodeData/Task/Integer-comparison/Harbour/integer-comparison.harbour
2016-12-05 23:44:36 +01:00

11 lines
158 B
Text

PROCEDURE Compare( a, b )
IF a < b
? "A is less than B"
ELSEIF a > b
? "A is more than B"
ELSE
? "A equals B"
ENDIF
RETURN