Алина Алиева

Program CPascal;

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

var st:string; // Строка текста
    temp:set of char;
    i:byte;

Begin
Write('Введите текст: '); Readln(St);

Temp:=[];
for i:=1 to Length(St) do
    Begin
    St[i]:=LowCase(St[i]);
    if (St[i] in Rus_LCase) and not (St[i] in Temp) then Temp:=Temp+[St[i]];
    end;

for i:=224 to 255 do if not(Chr(i) in Temp) and not(Chr(i) in Vowels) then Write(Chr(i):3);Writeln;
end.