20 lines
420 B
Plaintext
20 lines
420 B
Plaintext
PROGRAM INTEGER_ARITHMETIC
|
|
|
|
!
|
|
! for rosettacode.org
|
|
!
|
|
|
|
!$INTEGER
|
|
|
|
BEGIN
|
|
INPUT("Enter a number ",A)
|
|
INPUT("Enter another number ",B)
|
|
|
|
PRINT("Addition ";A;"+";B;"=";(A+B))
|
|
PRINT("Subtraction ";A;"-";B;"=";(A-B))
|
|
PRINT("Multiplication ";A;"*";B;"=";(A*B))
|
|
PRINT("Integer division ";A;"div";B;"=";(A DIV B))
|
|
PRINT("Remainder or modulo ";A;"mod";B;"=";(A MOD B))
|
|
PRINT("Power ";A;"^";B;"=";(A^B))
|
|
END PROGRAM
|