множество

program rab;
uses crt;
var
   i,n,j,k:byte;
   lb:set of #98..#122;
   c,b:char;
   w:array[1..100] of char;
   s:boolean;
begin
clrscr;
     writeln('BBeDu CTPoKy');
     lb:=[];
     i:=1;
     repeat
           read(c);
           if c in [#98..#100,#102..#104,#106..#110,#112..#116,#118..#120,#122]
           then begin
                     lb:=lb+[c];
             k:=k+1
                     for i:=i to i+1 do begin
                                  w[i]:=c;
                                  i:=i+1;
                                        end;end;
     until eoln;
     writeln;
     writeln('Cor/\aCHb1e ');
     for c:=#98 to #122 do
         if c in lb then write(c:2);
         writeln;
     n:=i;
     for i:=1 to n do write(w[i]:2);
     repeat
      s:=false;
     for i:=1 to n do
      if w[i]>w[i+1] then begin
         s:=true;
         b:=w[i];
         w[i]:=w[i+1];
         w[i+1]:=b;
         end;
         until s=false;
          writeln;
for i:=1 to n do write(w[i]);
writeln;
j:=1;
repeat
s:=false;
      for i:=1 to n do
           if w[j]<>w[i] then begin
                              s:=true;
                              j:=j+1;
                              end
             else s:=false ;
until s=false;
n:=j;
writeln;
    for j:=1 to n do write(w[j]);
    writeln;
writeln(k);
readln;
end.