Вычислить сумму, PascalABC.NET

[Олег3]

Вычислить сумму
Для контрольного просчета принять a = 1,7.

[ViktorR]

Алгоритм простой:

a := 1.7;
Начальное значение суммы равно нулю;
В цикле по i от 1 до 10
   увеличить сумму на i / (i + power(a, i));
Вывести значение суммы, предварительно умножив результат вычисления в цикле на a.