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

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