RosettaCodeData/Task/Multi-dimensional-array/ALGOL-W/multi-dimensional-array-4.alg

a( 5, 4, 3, 2 ) := a( 1, 1, 1, 1 );