临时代码保存

var
  a,b:array[0..10] of longint;
  n,i,t,k,j,p,m:longint;

begin
  //readln(n);
  n:=10;
  for i:=1 to n do a[i]:=i;
  for i:=1 to n-1 do b[i]:=i+1;
  b[n]:=1;
  m:=0;
  t:=n;  
  repeat
    for j:=1 to 3 do begin
      p:=t;
      t:=b[t];  
    end;  
    b[p]:=b[t];
    inc(m);
  until m=8;
  writeln(b[p]);
  t:=p;
  for k:=1 to 20 do begin
    write( a[t],‘ ‘ );
    t:=b[t]; //
  end;
end.