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

Unit VIRAGEN7;
Interface
Implementation
Begin
 writeln('Найти значение выражения у=1+(1/(1+(1/1+...1+1/x)) …), х>0, n знаков "+"');
End.

Program viragen7;

Uses viragen7.pas; {* Эту строку можно удалить *}
Uses crt; {* Вызов внешних функций *}
Var {* В работе нам потребуются переменные: *}
  x : integer;
  n : integer;
  i : integer;
  y : real;
Begin
  clrscr; {* Стираем всё с экрана *}
  write ('n=');
  readln (n);
  write ('x=');
  readln (x);
  y := x;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
    y := 1 + 1 / y;
  write ('y=', y);
  readln; {* Приостановка программы. Ожидание Enter *}
End.