program two;

uses crt;

var
    c: char;
    vovel: set of char;
    vovelCount: integer;

begin
    vovel := ['a', 'e', 'i'];//тут перечислишь гласные
    vovelCount := 0;
    repeat
        c := readkey();
        if c in vovel then
            inc(vovelCount);
    until c <> '.';
    writeln('Vovel count: ', vovelCount);
end.