with ada.text_io; use ada.text_io;
with ada.integer_text_io; use ada.integer_text_io; 
 
 
procedure countvowels is
    c: Character;
    numa, nume, numi, numo, num: Integer := 0;
begin
    while not end_of_file loop
        get(c);
        if c = 'a' then 
            numa := numa + 1;
        elsif c = 'e' then 
            nume := nume + 1;
        elsif c = 'i' then 
            numi := numi + 1;
        elsif c = 'o' then 
            numo := numo + 1;
        else
            num := num + 1;
        end if;
    end loop;

    put("num of 'a': ");
    put(numa, 1);
    new_line;

    put("num of 'e': ");
    put(nume, 1);
    new_line;

    put("num of 'i': ");
    put(numi, 1);
    new_line;

    put("num of 'a':" & Integer'image(numo));
    new_line;

    put("num of rest:" & Integer'image(num));
    new_line;


end countvowels;