var A: array[-3..2] of integer;
X = [1 3 5 7 9 11]
for k:=1 to 6 do begin ... end;
X = [12 9 6 3 0 -3]
X = [3 4 7 8 11 12]
X = [1 2 4 8 16 32]
X[1]:= 1; for k:=2 to 6 do begin ... end;
A = [3 5 2 1 4]
write ( A[A[4]] );
X = [4 3 2 1 5]
for i:=1 to 5 do begin X[i]:= X[i]+1 end;
write( X[3] );
for k:=1 to N do writeln ( ... );
k := 2;while k <= N do begin writeln ( A[k] ); ...end;