===== 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.
