Помогите реализовать программу ** паскаль заранее благодарю

Question

Помогите реализовать программу на паскаль
заранее благодарю

---

Comments

Непонятно, что именно нужно? Найти n-й член последовательности или вывести все члены последовательности от 1 до n, или написать функцию, возвращающую a(n) ?

Answer 1

Если я что-то неправильно понял или сделал, пожалуйста, скажите об этом -- исправлю.
var
a1:= 2.0;
i,n:integer;
otv:real;
Begin
Write('Укажите, какой член последователности вы хотите найти: ');
Read(n);
if n=1 then write('a1 = 2') else
Begin
for i:=2 to n do
Begin
otv:=2+(1/a1);
a1:= otv;
End;
write('a'+n+' = '+otv);
End;
End.