WAP to enter any 10 numbers and display the smallest one.

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)
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