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

CLS
INPUT "ENTER FIRST NUMBER"; N
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; G
IF G > N THEN N = G
NEXT I
PRINT “THE GREATEST NUMBER IS “; N
END


USING SUB PROCEDURE
DECLARE SUB GREAT (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
CALL GREAT (N)
END
SUB GREAT (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; G
IF G > N THEN N = G
NEXT I
PRINT “THE GREATEST NUMBER IS “; N
END SUB


USING FUNCTION PROCEDURE
DECLARE FUNCTION GREAT (N)
CLS
INPUT "ENTER FIRST NUMBER"; N
PRINT “THE GREATEST NUMBER IS “; GREAT (N)
END
FUNCTION  GREAT (N)
FOR I = 2 TO 10
INPUT "ENTER NEXT NUMBER"; G
IF G > N THEN N = G
NEXT I
GREAT = N
END FUNCTION