{* Задача 411 *}

Unit ZADACH411;
Interface
Implementation
Begin
 writeln('

Напишите программу вычисления суммы первых 20 членов последовательности с общим членом:

');
End.

Program zd13;

Uses zadach411.pas; {* Эту строку можно удалить *}
Var {* В работе нам потребуются переменные: *}
  a : real;
  z : real;
  k : integer;
Begin
  z := 1;
  For k := 1 To 20 Do {* Цикл для k => [1 .. 20] *}
  Begin
    a := (k + 1) / (sqr(2 * k+1));
    writeln(k : 5, a : 8:4);
    z := z + a;
  End;
  writeln('результат ', z : 8:2);
End.