code 34016;
   real procedure SEQVEC(L, U, IL, SHIFT, A, B);
   value L,U,IL,SHIFT; integer L,U,IL,SHIFT; array A,B;
   begin real S;
       S:= 0;
       for L:=L step 1 until U do 
       begin S:= A[IL] * B[L + SHIFT] + S; IL:= IL + L end;
       SEQVEC:= S
   end SEQVEC;
       eop