code 34012;
   real procedure TAMVEC(L, U, I, A, B); value L,U,I;
   integer L,U,I; array A,B;
   begin integer K; real S;
       S:= 0;
       for K:=L step 1 until U do S:= A[K,I] * B[K] + S;
       TAMVEC:= S
   end TAMVEC;
       eop