NUMBER"; A

INPUT "ENTER SECOND NUMBER"; B

CALL DIVIDE (A, B)

END CLS

INPUT "ENTER FIRST NUMBER"; A

INPUT "ENTER SECOND NUMBER"; B

IF A > B THEN

R = A MOD B

Q = A \ B

ELSE

R = B MOD A

Q = B \ A

END IF

PRINT "QUOTIENT="; Q

PRINT "REMAINDER ="; R

END

USING SUB PROCEDURE

DECLARE SUB DIVIDE (A, B)

CLS

INPUT "ENTER FIRST

SUB DIVIDE (A, B)

IF A > B THEN

R = A MOD B

Q = A \ B

ELSE

R = B MOD A

Q = B \ A

END IF

PRINT "QUOTIENT="; Q

PRINT "REMAINDER ="; R

END SUB

## No Comments