Для вектора a размерностью n=10 и произвольного числа x вычислить число y по формуле

begin
  var n:=10;
  var a:=SeqRandom(n,-99,99).Select(t->0.1*t).ToArray; a.Println;
  var x:=ReadReal('x=');
  var (y,z,px):=(0.0,1.0,x*x);
  foreach var t in a do begin
    y+=z*t*px; z:=-z; px*=x
    end;
  Writeln('y=',y)  
end.


2.2 -8 6.1 -7.4 4 -8.3 -5.9 5.9 -7.9 -8.1
x= 2.15
y=14313.6473317108