├ 测试数据 11：答案错误...程序输出比正确答案长

var

x,x1,x2,x3:ansistring;

m,n,p,nn,a,b,l:integer;

xx:array[0..10000] of integer;

begin

readln(x);

readln(m,n,p);

x1:=copy(x,1,m-1);

x2:=copy(x,m,length(x)-m+1);

if n=1 then

begin

for a:=1 to length(x) do

begin

nn:=ord(x[a]);

if (nn=65) then

begin

x[a]:=chr(nn+32);

end

else

begin

if (nn>=97)and(nn