RosettaCodeData/Task/Integer-comparison/DCL/integer-comparison.dcl

6 lines
285 B
Plaintext

$ inquire a "Please provide an integer"
$ inquire b "Please provide another"
$ if a .lt. b then $ write sys$output "the first integer is less"
$ if a .eq. b then $ write sys$output "the integers have the same value"
$ if a .gt. b then $ write sys$output "the first integer is greater"