begin
   array
     A[1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 : 2, 1 :
     2, 1 : 2, 1 : 2, 1 : 2, 1 : 2];
   A[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1] ≔ 1·0;
   OUTREAL(99, A[1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]);
end