Program mn_3;
uses crt;
type let=' а'..'я';
var sogl:set of let;
text: set of char;
c:char;
s:string;
i:byte;
begin
writeln('введите текст, заканчивающийся  точкой');
readln(s);
if s[length(s)]<>'.' then s:=s+'.';
text:=[];
sogl :=['б','в','г','д','ж','з','л','м','н','р'];
repeat
if s[i] in sogl then text:=text+[s[i]];
i:=i+1;
until s[i]='.';
for c:='a'  to 'я' do if c  in text then write(c);
readln;
end.