#4 COUNT TOTAL NO OF VOWELS IN SENTENCE

DECLARE FUNCTION COUNT (N$)
CLS
INPUT "ENTER ANY NUMBER ";N$
PRINT "TOTAL NO OF WORDS ";COUNT(N$)
END

FUNCTION COUNT (N$)
C=0
WHILE N<>0
R = N MOD 10
C = C + 1
N = N  \ 10
WEND
COUNT = C
END FUNCTION