WAP TO INPUT ANY THREE NUMBERS AND DISPLAY THE NUMBERS IN ASCENDING ORDER USING SUB...END SUB || FULL PROGRAM ||

 DECLARE SUB FIND(A,B,C)

CLS

Input "ENTER THE FIRST DIGIT"; A

Input "ENTER THE SECOND DIGIT"; B

Input "ENTER TEH THIRD DIGIT"; C

Call FIND(A, B, C)

End

Sub FIND (A, B, C)

    If A > B And A > C Then G = A

    If B > A And B > C Then G = B

    If C > A And C > B Then G = C

    If A < B And A < B Then S = A

    If B < A And B < C Then S = B

    If C < A And C < B Then S = C

    If A <> G And A <> S Then M = A

    If B <> G And B <> S Then M = B

    If C <> G And C <> S Then M = C

    Print "THE NUMBERS IN ASCENDING ORDER ARE"; G, M, S

End Sub