Не могу сообразить, как записать.уже мозг кипит.выручайте.

===== PascalABC.NET =====

begin

 var a := Arr(0.1, 0.12, 0.04, 0.6, 0.4, 0.2, 0.6, 0.9, 0.7, 0.12);

 var (b, C, P) := (2.2, 3.0, 5.3);

 var (r, j) := (1.0, 1);

 while j <= 9 do

 begin

   r *= 0.2 * (j - 1) + 0.6;

   j += 1

 end;

 var y := a.Sum + b * b / (Ln(C) + P) + r;

 Print(y)

end.