PL/SQL PROGRAMS

Q)WRITE A PL/SQL BLOCK INPUT ANY STRING FIND OUT THE NUMBER OF VOWELS AND CONSONANTS?
A)DECLARE 
    STR                                     VARCHAR2(15):='&STR';
    NO_OF_VOWELS            NUMBER:=0;
    NO_OF_CONSONANTS  NUMBER:=0;
    BEGIN
    FOR I IN 1..LENGTH(STR) 
    LOOP
    IF(SUBSTR(STR,I,1)='A' OR SUBSTR(STR,I,1)='E' OR SUBSTR(STR,I,1)='I' OR
    SUBSTR(STR,I,1)='O' OR SUBSTR(STR,I,1)='U') THEN
    NO_OF_VOWELS :=NO_OF_VOWELS +1;
    ELSE
    NO_OF_CONSONANTS:=NO_OF_CONSONANTS+1;
    END IF;
    END LOOP;
    DBMS_OUTPUT.PUT_LINE('VOWELS COUNT IS'|| NO_OF_VOWELS );
    DBMS_OUTPUT.PUT_LINE('VOWELS COUNT IS'|| NO_OF_CONSONANTS);
    END;