необходимо вывести n первых членов соответствующей по­следовательности

var n,i:integer;
y1,y2,yn:real;
begin
readln(n);
y1:=-2;
y2:=1;
writeln(1,'  ',y1:5:3);
writeln(2,'  ',y2:5:3);
for i:=3 to n do
 begin
 yn:=1/6*(y2+1/y1);
 writeln(i,' ',yn:7:5);
 y1:=y2;
 y2:=yn;
 end;
end.

Пример:
5
1 -2.000
2 1.000
3 0.08333
4 0.18056
5 2.03009