Nhập Vào 1 xâu từ bàn phím và 1 kí tự bất kỳ đưa ra màn hình xâu thu được sau khibddax xoá kí tự bất kì trong xâu đã nhận Xâu ban đầu ‘Lop 11C7’ Nhập

program xoa_kitu;

uses crt;

var s:string;

      k:char;

begin

        clrscr;

        write(‘Nhap xau: ‘);  readln(S);

        write(‘Nhap ki tu: ‘);   readln(k);

        while pos(k,s)<>0 do

                delete(s,pos(k,s),1);

        write(‘Xau khi xoa la: ‘,s);

        readln;

end.