{* Задача 282 *}

Unit ZADACH282;
Interface
Implementation
Begin
 writeln('

Вычислить сумму 1+1/3+1/3²+1/3³+...+1/3⁸. Операцию возведения в степень не использовать

');
End.

Program zadach282;

Uses zadach282.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* Объявление переменных *}
  i : integer;
  n : integer;
  s : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  s := 1;
  For i := 1 To 8 Do {* Цикл для i => [1 .. 8] *}
  Begin
    i := i + 1;
    s := 1 / (3 * i) + s;
  End;
  writeln('s=', s : 2 : 1);
  readln; {* Приостановка программы. Ожидание Enter *}
End.