CLS
INPUT "ENTER FIRST NUMBER"; N
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; S
IF S < N THEN N = S
NEXT I
PRINT “THE SMALLEST NUMBER IS “; N
END
USING SUB PROCEDURE
DECLARE SUB SMALL (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
CALL SMALL (N)
END
SUB SMALL (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; S
IF S < N THEN N = S
NEXT I
PRINT “THE SMALLEST NUMBER IS “; N
END SUB
USING FUNCTION PROCEDURE
DECLARE FUNCTION SMALL (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
PRINT “THE SMALLEST NUMBER IS “; SMALL (N)
END
FUNCTION SMALL (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; S
IF S < N THEN N = S
NEXT I
SMALL = N
END FUNCTION
No Comments