program q;
uses crt;
const
imax=10;
var z,a,x:real;
i:byte;
begin
clrscr;
writeln('Vvedite b');
readln(z);
for i:=1 to imax do begin
writeln('Vvedite a[',i,']');
readln(a);
writeln('Vvedite x[',i,']');
readln(x);
z:=z+a*x;
end;
writeln('z=',z:5:5);
readkey;
end.