{$codepage utf8} Var A:array of array of array of word; i,j,k:integer; Begin SetLength(A,3,3,3); for i:=low(A) to high(A) do for j:=low(A[i]) to high(A[i]) do for k:=low(A[i,j]) to High(A[i,j]) do Begin A[i,j,k]:=(i*100)+(j*10)+(k); End; for i:=low(A) to high(A) do for j:=low(A[i]) to high(A[i]) do for k:=low(A[i,j]) to High(A[i,j]) do Begin Writeln('[',i,',',j,',',k,']:=',A[i,j,k]:3) End; End.