program P4C1DT;
const
    CHARS : set of char = ['B', 'C', 'D', 'F', 'G', 'H', 'J', 'K', 'L', 'M', 'N', 'P', 'Q', 'R', 'S', 'T', 'V', 'W', 'X', 'Y', 'Z'];
    SIG : set of char = ['.', ' '];

var
    i, j, k: Integer;
    strResults : string;
    strLine : string[60];
    sourceText : text;
begin
    k := 0;
    assign(sourceText, 'sourceText.txt');
    reset(sourceText);
    strResults := '';
    while(NOT EOF(sourceText)) do begin
        j := 1;
        readln(sourceText, strLine);
        for i := 1 to length(strLine) do begin
            if(upcase(strLine[i]) in SIG) then begin
                if(NOT((upcase(strLine[i-1]) in CHARS) and (upcase(strLine[j]) in CHARS))) then
                    if((upcase(strLine[i-1]) in CHARS) or (upcase(strLine[j]) in CHARS)) then begin
                        strResults := strResults + copy(strLine, j, i - j);
                        strResults := strResults + ',';
                        k := k + 1;
                    end;
                j := i + 1;
            end;
        end;
    end;
    if(k <> 0) then
        writeln(#10#13,'Количество слов, либо начинающихся, либо заканчивающихся на согласную букву: ', k, #10#13, #10#13, strResults, #10#13)
    else
        writeln(#10#13, 'Не слов, начинающихся либо заканчивающихся на согласную буквы');
end.