program YPS;
 var
 X,Y: array[0..1023] of extended;
 h: array[0..15] of extended;
 VarY: extended;
 Xf,Yf,Hf: text;
 i,l,n,z: integer;
 begin
 assign(Xf,'X.txt');
 assign(Yf,'Y.txt');
 assign(Hf,'H.txt');
 reset(Xf);
 reset(Hf);
 rewrite(Yf);

                    for i:= 0 to 1023 do begin
                    readln(Xf,X[i]);
                    end;

                    for i:= 0 to 15 do begin
                    readln(Hf,h[i]);
                    end;

 Close(Xf);
 Close(Hf);

           for n:= 0 to 1023 do begin
               for l:= 0 to 15 do begin

                   if l>n then z:=0 else z:=n-l;
                   Y[n]:= Y[n]+(h[l]*X[z]);
               end;

           end;

                    for i:=0 to 1023 do begin
                     append(Yf);
                     writeln(Yf,Y[i]:2:5);
                     close(Yf);
                    end;

 end.