Stack Overflow Error Опции

[Unconnected]

function y(i:byte):real;
begin
  y:=(y(i-1)+1)/(y(i-1)+2);
end;

var i:byte;
begin
  repeat
    inc(i);
  until (y(i)-y(i-1))<0.00001;
  writeln('Iskomoe chislo - ',i);
  readln;
end.

Этот код компилируется с ошибкой Stack Overflow Error. TP7.
Задание в оригинале:

2...Пусть Y(0)=0; Y(i)=(Y(i-1)+1)/(Y(i-1)+2), i=1,2,3,... Найти первый член Y(n), для которого Y(n)-Y(n-1)<0.00001.

Сообщение отредактировано: Unconnected - 15.01.2009 1:34

[Unconnected]

Спасибо, Volvo!