回帖：想了好久，比比赛花的时间更多啊！看来我老了！我想这个应该可以吧！不太完善！多多指教！
var n,m,f,i,t,s,j,s2:integer;
a,b,c:array[1..100]of integer;
begin
read(n,m);
f:=n;
for i:=1 to n do begin
read(a); c:=0;end;
t:=0;
s:=m mod n;
b[1]:=s;
c:=1;
for i:=2 to n-1 do begin
f:=f-1;
t:=a] mod f;
b:=(t+b)mod 7;
for j:=b+1 to b do
begin
s2:=0;
if c=1 then s2:=s2+1;end;
b:=s2+b;
c:=1;
end;
for i:=1 to n do
if c=0 then b:=i;
for i:=1 to n do write(b);
end.