program xoaXau;
uses crt;
var s: string[20];
n: byte;
begin
clrscr;
write('nhap xau: '); readln(s);
write('nhap n = '); readln(n);
writeln('xau ban dau: ', s);
write('xoa ',n,' ki tu dau: ');
writeln(copy(s, n+1, length(s)-n));
write('xoa ',n,' ki tu cuoi: ');
writeln(copy(s, 1, length(s)-n));
readln;
end.