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(n, ' ki tu dau: ');
writeln(copy(s,1,n));
write(n, ' ki tu cuoi: ');
write(copy(s, length(s)-n+1, n));
readln;
end.