comment ================== 34010 ================= ;
real procedure VECVEC(L, U, SHIFT, A, B); value L, U, SHIFT;
   integer L, U, SHIFT; array A, B;
begin integer K; real S;
   S ≔ 0;
   for K ≔ L step 1 until U do S ≔ A[K] × B[SHIFT + K] + S;
   VECVEC ≔ S
end VECVEC;