В результате чего условный рефлекс угасает?

var
  i: integer;
  d,s: real;
begin
  d:= 10;
  s:= 10;
  for i:=2 to 7 do begin
    s:= d*0.1+s;
    d:= s;
    writeln(s:0:2)
  end
end.