PROGRAM Case2(Input, Output);
    {----------------------------------
        Compile it With Free Pascal.
        Is not compatible with P-5.
    ----------------------------------}

VAR
    C: Array[1..100] OF Char;
    I, N, V, P: Integer;
BEGIN
    I := 1;
    N := 0;         { characters read }
    V := 0;
    P := 0;

    WHILE (I <= 100) AND (NOT EOLn(Input)) DO
    BEGIN
        Read(C[I]);
        N := N + 1;
        CASE C[I] OF
            'A',
            'a',
            'E',
            'e',
            'I',
            'i',
            'O',
            'o',
            'U',
            'u':
                V := V + 1;
            '+',
            '-',
            '*',
            '/',
            '=',
            '>',
            '<',
            '.',
            ',',
            '"',
            '?',
            '!',
            ':',
            ';',
            '''':
                P := P + 1
        END;
        I := I + 1;
    END;

    FOR I := 1 TO N DO
        Write(C[I]:1);
    WriteLn;
    WriteLn('N     :', N);
    WriteLn('Vowels: ', V);
    WriteLn('Punc  : ', P);
END.
