program test02;
var
i,j,k,t:integer;
a:array[1..7] of integer;
begin
for i:=1 to 7 do a[i]:=0;
for i:=1 to 4 do a[i]:=i;
t:=a[7];
for i:=7 downto 2 do a[i]:=a[i-1];
a[1]:=t;
for i:=1 to 7 do write(a[i]);
end.
输出：0123400