code 34030;
    procedure ICHVEC(L, U, SHIFT, A); value L,U,SHIFT;
    integer L,U,SHIFT; array A;
    begin real R;
        for L:= L step 1 until U do 
        begin R:= A[L]; A[L]:= A[L + SHIFT]; A[L + SHIFT]:= R end 
    end ICHVEC;
       eop