{* Вычисление выражения 4 *}

Unit VIRAGEN4;
Interface
Implementation
Begin
 writeln('Вычисление S, если S=1/a+1/a²+1/а⁴+...+1/а²ⁿ­­­ˉ­­­­²');
End.

Program progress;

Uses viragen4.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : real;
  s : real;
Begin
  writeln('vvedite a');
  readln(a);
  s := 1 / a + ((1 / (a * a)) / (1 - (1 / (a * a))));
  writeln(s : 5 : 5);
  readln; {* Приостановка программы. Ожидание Enter *}
End.