Viết chương trình nhập vào một xâu s từ bàn phím và đưa xâu sau khi đã xóa k kí tự bắt đầu từ vị trí n

program xoa_kitu;

uses crt;

var s:string;

      n,k:byte;

begin

       clrscr;

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

       write(‘Nhap vi tri n: ‘);  readln(n);

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

       delete(s,n,k);

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

       readln;

end.