QBASIC PROGRAM TO FIND SMALLER NUMBER

 CLS
 INPUT “ENTER ANY TWO NUMBERS”; A, B
 IF A < B THEN
 PRINT A; “IS SMALLER”
 ELSE
 PRINT B; “IS SMALLER”
 END IF
 END

USING SUB

DECLARE SUB SMALL(A,B)
 CLS
 INPUT “ENTER ANY TWO NUMBERS”; A, B
 CALL SMALL(A,B)
 END
 
 SUB SMALL(A,B)
 IF A < B THEN
 PRINT A; “IS SMALLER”
 ELSE
 PRINT B; “IS SMALLER”
 END IF
 END SUB