用free pascal来编个程序求数串的原始排列,最好每部有分析

用free pascal来编个程序求数串的原始排列,最好每部有分析前N个自然数排成一串:X1,X2,X3…..Xn,先取出x1,将x2,x3移到数串尾,再取出x4,将x5,x6,x7移到数串尾,…….类推直至取完.取出的序列恰好是:1,2,3……n要求输入N,求原来的数串的排列方式.不要太多函数,看不懂感谢回答的人,我天灵盖掀了,自己做出了,分享var n,t,i,m,k,s:integer；var a,b,c:array [1..n] of integer;beginreadln(n); t:=0;for i:=1 to n doa[i]:=i;repeatinc(t);a[1]:=b[t];for i:= 2 to n doa[i-1]:=a[i];a[1]:=m; a[2]:=k;for i:=3 to n doa[i-2]:=a[i];s:=0;repeatinc(s);until a[s]=0;a[s]:=m; a[s+1]:=k;until t=n;for i:=1 to n doc[b[i]]:=i;for i:=1 to n dowrite(c[i],' ');end.