{* Задача 540 *}

Unit ZADACH540;
Interface
Implementation
Begin
 writeln('Вычислить сумму 1+1/3+1/3²+1/3³+...+1/3⁸. Операцию возведения в степень не использовать');
End.

Program zadach540;

Uses zadach540.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.