program jyc (input,output);
const n=20;
var
t:integer;
a:array[1..2*n] of integer;
b:array[1..2*n] of integer;
procedure change (var a:integer);
var
    j,k:integer;
begin
  for j:=1 to n do
  a[j*2-1]:=b[j];
  for k:=n+1 to 2*n do
  a[k-n]:=b[k];
end;
begin
  repeat
  change;
  t:=t+1;
  until (a=b);
  write('the number is:');
  writeln(t);
end.
试编一下，试试看。

不知道为什么，出现“无效标示符”（郁闷ing）