Uses
   Crt;
Const
    a:string='B,A,G,V,D';
    b:String='BV,A,AA,AB,GV,DA,DB,DAA';
Var
  i,j,j2,m,n,x,k,v:Word;
  c,d:string;
Begin
    ClrScr;
    n:=Length(a);
    m:=Length(B);
    v:=m;
    For i:=1 to n do
        for j:=m downto 1 do
            if b[j]=',' then
               begin
                    x:=j;
                    k:=0;
                    for j2:=x to v do
                        begin
                             k:=k+1;
                             d[k]:=b[j2];
                        end;
                    v:=x;
                    for j2:=1 to k do
                        if a[i]=d[j2] then
                           c:=c+d;
               end;
    Writeln;
    Writeln©;
    Readln;
End.