uses crt;
var d,f:text; n,i,j:longint; s:string;
begin
clrscr;
   assign(d,'input.pas');reset(d);
   assign(f,'output.pas');rewrite(f);
      readln(d,n);
      for j:=1 to n do
         begin
            readln(d,s);
            i:=1;
            repeat
               inc(i);
               if s[i]='?' then begin delete(s,i-1,2); i:=1; i:=1; end;
               if (s[i]='*')and(i>2) then begin delete(s,i-2,3);  i:=1; end;
               if (s[i]='_')or(s[i]='#') then begin s[i-1]:=' '; delete(s,i,1); i:=1; end;
            until i>=length(s);
            writeln(f,s);
         end;
      close(f);
   close(d);
end.

///////////////////////////////////////////////////////

Bài này mình cũng có trả lời bên kia rồi nên không phải là copy đây nhé!