program test2;
var
i:integer;
a:array[1..10] of byte;
begin
for i:=1 to 10 do a[i]:=i;
for i:=1 to 10 do
begin
a[i]:=a[i]+1;
write(a[i]:3);
end;
end.

输出：2 3 4 5 6 7 8 9 10 11