Không copy thì delete nhá.
uses crt;
var a:string; n,m:longint;
begin
clrscr;
write('Nhap mot xau a: ');readln(a);
write('Nhap n,m: ');readln(n,m);
delete(a,1,m-1);
delete(a,n+m-1,length(a)-(n+m-1)+1);
writeln(a);
readln
end.
Dùng for:
uses crt;
var a,s:string; n,m,i:longint;
begin
clrscr;
write('Nhap mot xau a: ');readln(a);
write('Nhap n,m: ');readln(n,m);
for i:=m to m+n do
s:=s+a[i];
writeln(s);
readln
end.