Алина Алиева

Program CPascal;

const rus_lcase=['а'..'я']; // Строчный русские буквы
      vowels=['а','е','ё','и','о','у','ы','э','ю','я']; // Гласные буквы

var st,temp_st:string; // Строка текста
    temp_1,temp_2,temp_3:set of char;
    flag:boolean;
    i:byte;

Begin
Write('Введите текст: '); Readln(St);
St:=St+'.'; // чтобы было...
Temp_1:=[];
Temp_2:=[];
Temp_3:=[];
Flag:=True;

for i:=1 to Length(St) do
    Begin
    St[i]:=LowCase(St[i]);
    if (St[i] in Rus_LCase) then
                                Begin
                                Temp_St:=Temp_St+St[i];
                                if (St[i] in Vowels) then Temp_2:=Temp_2+[St[i]];
                                end
                            else
                                Begin
                                if Flag then
                                            Begin
                                            Temp_1:=Temp_2;
                                            Flag:=False;
                                            end
                                        else Temp_1:=Temp_1*Temp_2;

                                Temp_St:='';
                                Temp_2:=[];
                                end;

    if (St[i] in Rus_LCase) and not (St[i] in Temp_3) then Temp_3:=Temp_3+[St[i]];
    end;

if Temp_1=[] then Writeln('Нет ни одной гласной буквы, которая бы входила в каждое слово')
             else
                 Begin
                 Writeln('Все гласные буквы, которые входят в каждое слово:');
                 for i:=224 to 255 do if (Chr(i) in Temp_1) then Write(Chr(i):3);
                 Writeln;
                 end;

Writeln('Все согласные буквы, которые невходят ни в одно слово:');
for i:=224 to 255 do if not(Chr(i) in Temp_3) and not(Chr(i) in Vowels) then Write(Chr(i):3);
end.