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

a( 1, 1, 1, 1 ) := 0;