Вычислить предел последовательности

[Dartchuwak]

Помогите с еще одной задачкой

[Sazary]

Могли бы хоть задание перепечатать.

uses crt;
var
Y0,Y1,Yn1,Yn2,tmp,e : real;

begin
clrscr;
write('Enter Y0: ');
readln(Y0);
write('Enter Y1: ');
readln(Y1);
write('Enter eps: ');
readln(e);
Yn1 := Y1;
Yn2 := Y0;
while abs(Yn1-Yn2)>=e do
  begin
  tmp := Yn1;
  Yn1 := 1/sqrt(12+sqr(Yn1)+sqr(Yn2));
  Yn2 := tmp;
  end;
writeln('Predel = ',Yn2:7:4);
readln;
end.

[maladoy]

а где n=2,3,4,5,6....

[Sazary]

maladoy Зачем? Если вы имеете в виду мои обозначения, то:
Yn1 - это Y(n-1), а Yn2 - Y(n-2)