<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
(SeqGen(ReadInteger,i->1/(10*(i+1)+2)).Sum+1).Println
end.
<u>Пример</u>
10
1.26596470171236
Например, можно расставить следующим образом
(1+2+3+4):5+6-7=1
Мадана это медведь на юге