$n=<>;
$a[$_]=<>for 1..$n-1;
<>=~$",$p+=$'-$`,$s+=$p*$a[$_]for 1..$n;
print$s;