Нужно сделать в паскале. Даны два вещественных массива A(14), X(15). Вычислить:

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := SeqRandomReal(14, -99, 99)

     .Select(t -> Round(t, 1)).ToArray;

 a.Println;

 var x := SeqRandomReal(15, -99, 99)

     .Select(t -> Round(t, 1)).ToArray;

 x.Println;

 var (p1,p2,p3):=(1.0,1.0,1.0);

 for var i:=0 to 13 do

   p1*=a[i];

 for var i:=0 to 7 do

   p2*=x[2*i];

 for var i:=0 to 4 do

   p3*=a[3*i+1];

 var y:=p1+p2/(1+p3*p3);

 Println('y =',y)

end.

Пример

77.2 84.2 -5.9 89.4 93.3 -16.9 -25.7 26.9 -79.7 -3.4 55.3 46.9 -93.8 -28.9

42.6 63.9 97.4 46.5 -50.2 11.6 -21.1 52.1 -40.1 -90.6 74.1 -24.7 -22.3 -58 -3.3

y = -7.12046846792187E+21