回帖：请看看题解:
program v1318(input,output);
const maxn=26;
var i,j,k,s,t,w:integer;
　　 a:array[1..maxn] of integer;
　　 ch:char;
begin
read(s,t,w);
readln;
for i:=1 to w do begin
　　read(ch);
　　a:=ord(ch)-ord('a')+1;
end;
for i:=1 to 5 do begin
k:=w;
while a+1>t+k-w do dec(k);
inc(a);
for j:=k+1 to w do a:=a+1;
for j:=1 to w do begin
ch:=chr(ord('a')-1+a);
write(ch);
end;
writeln;
end;
end.