Дано действительное число E. Пусть y_{0}=0 , y_{k}={y_{k-1}+1} over {y_{k-1}+2} ; k=1,2… Найти первый член y_{n} , для которого выполняется условие (y_{n} — y_{n-1}) < E- Pascal(Паскаль)

uses crt;
var y0,yk,e,dy:real;
begin
clrscr;
write('e=');
readln(e);
y0:=0;
if e>=0.5 then write('Первый член, удовлетворяющий условию=0.5')
else
 begin
  dy:=0.5;
  while dy>=e do
   begin
    yk:=(y0+1)/(y0+2);
    dy:=abs(yk-y0);
    y0:=yk;
   end;
  write('Первый член, удовлетворяющий условию=',yk:0:5,'  dy=',dy:0:5);
 end;
readln
end.