begin integer I;
   integer array A,B[1:10];
   array C,D[1:10];
   procedure TEST(P,Q,R,S); value P,Q,R,S; array R,S;
        integer array P,Q; begin integer I;
      for I ≔ step1until 10 do begin
            if I≠P[I]∨ I≠Q[I]∨ I≠R[I]∨ I≠S[I] then begin
               PRINT(I,2,0); PRINT(P[I],2,0); PRINT(Q[I],2,0);
               PRINT(R[I],2,1); PRINT(S[I],2,1); NEWLINE
            end;
            P[I] ≔ [I] ≔ ; R[I] ≔ [I] ≔ 
         end FOR;
      PRINTSTRING(“ARRAY  ̲PASSED”)
   end TEST;
   for I ≔  step 1 until 10 do begin
         A[I] ≔ [I] ≔ ; C[I] ≔ [I] ≔ 
      end;
   TEST(A,C,D,B);
   for I ≔  step 1 until 10 do begin
         if A[I]≠I ∨ B[I]≠I ∨ C[I]≠I ∨ D[I]≠I  then begin
            PRINTSTRING(“ERROR”); PRINT(I,2,0)
         end
      end
end