Viết chương trình nhập một xâu ký tự St từ bàn phím và một ký tự ch. In ra màn hình xâu St sau khi xóa hết các ký tự ch trong xâu đó.

Gợi ý:

While POS(ch,st)<>0 Do Delete(st,POS(ch,st),1);