REM to print the smallest number DECLARE SUB small (a, b, c) CLS INPUT "enter three different numbers"; a, b, c CALL small(a, b, c) END SUB small (a, b, c) IF a < b AND a < c THEN PRINT "smallest number="; a ELSEIF b < a AND b < c THEN PRINT "smallest number="; b ELSE PRINT "smallest number="; c END IF END SUB