RosettaCodeData/Task/Multi-dimensional-array/ALGOL-68/multi-dimensional-array-5.alg

a[ 5, 4, 3, 2 ] := a[ 1, 1, 1, 1 ];