WAP TO INPUT ANY NUMBER AND CHECK WHETHER IT IS ARMSTRONG NUMBER OR NOT USING SUB...END SUB
DECLARE SUB CHECK(N) Cls Input "ENTER ANY NUMBER"; N Call CHECK(N) E…
DECLARE SUB CHECK(N) Cls Input "ENTER ANY NUMBER"; N Call CHECK(N) E…
DECLARE SUB SUM(N) Cls Input "ENTER ANY NUMBER"; N Call SUM(N) End S…
DECLARE SUB AREA(L,B) Cls Input "ENTER THE LENGTH "; L Input "E…
DECLARE SUB FIND(A,B,C) CLS Input "ENTER THE FIRST DIGIT"; A Input &…