code 34035;
    procedure ICHSEQ(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[IL + SHIFT]; A[IL + SHIFT]:= R;
            IL:= IL + L
        end 
    end ICHSEQ;
        eop