{* Задача 412 *}

Unit ZADACH412;
Interface
Implementation
Begin
 writeln('

Найдите сумму первых N членов ряда:

');
End.

Program zadach412;

Uses zadach412.pas; {* Эту строку можно удалить *}
Var {* Необходимые переменные *}
  a : real;
  z : real;
  k : integer;
  n : integer;
  i : integer;
Begin
  writeln('введите N');
  read(n);
  z := 0;
  i := 0;
  For k := 1 To n Do {* Увеличиваем k от 1 до n с шагом 1 *}
  Begin
    a := (2 * k+1) / (3 * k-2);
    z := z + a;
    write (a : 3:4, ' ');
    i := i + 1;
    If i = 10 Then
    Begin
      writeln; {* Пропускаем одну строку *}
      i := 0;
    End;
    
  End;
  writeln('  сумма=', z : 3:4);
End.