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