CONST
 M=10; {Number of lines}
 N=8; {Number of columns}
VAR
 f_A,f_B,f_C,f_R:Text;
 A,B:Array[1..M,1..N] of Integer;
 C:Array[1..N] of Integer;
 R:Array[1..M] of Integer;
 i,j:Integer;
BEGIN
 Randomize;
 Assign(f_A,'D:\Inp_A');
 Rewrite(f_A);
 Assign(f_B,'D:\Inp_B');
 Rewrite(f_B);
 Assign(f_C,'D:\Inp_C');
 Rewrite(f_C);
 for i:=1 to M do
  begin
   for j:=1 to N do
    begin
     A[i,j]:=-9+Random(19);
     write(f_A,A[i,j]:4);
     B[i,j]:=-9+Random(19);
     write(f_B,B[i,j]:4);
    end;
   writeln(f_A);
   writeln(f_B);
  end;
  for i:=1 to N do
   begin
    C[i]:=-9+Random(19);
    writeln(f_C,C[i]:4);
   end;
 Close(f_A);
 Close(f_B);
 Close(f_C);

 Reset(f_A);
 Reset(f_B);
 Reset(f_C);
 Assign(f_R,'D:\Out_R');
 Rewrite(f_R);
 for i:=1 to M do
  begin
   for j:=1 to N do
    begin
     read(f_A,A[i,j]);
     read(f_B,B[i,j]);
    end;
   readln(f_A);
   readln(f_B);
  end;
 for i:=1 to N do
  readln(f_C,C[i]);
 Close(f_A);
 Close(f_B);
 Close(f_C);
 for i:=1 to M do
  begin
   R[i]:=0;
   for j:=1 to N do
    R[i]:=R[i]+(A[i,j]+B[i,j])*C[j];
   writeln(f_R,R[i]:6);
  end;
 Close(f_R);
END.