Коллосальное значение накопления произведения

[guardi]

Разве нормально,что получилось такое нереальное значение,оно,вроде,и близко не должен получаться?Где-то есть ошибка?

program number15;
var
x,x0,hx,xn,xs,y:real;
d,s:double;
n:integer;
begin
writeln('x0,hx,xn');
readln(x0,hx,xn);
x:=x0;
while x < xn + hx/2 do
 begin
  d:=1;
  xs:=1;
  for n:=1 to 10 do
   begin
    xs:=xs*x;
    d:=d*(1+(xs/(n+1)));
   end;
   d:=((sqr(x)+1)/x)*d;
  s:=0;
  xs:=1;
   for n:=1 to 10 do
    begin
     xs:=xs*x;
     s:=s+xs/n;
    end;
   s:=((x*x*x+2)/4)*s;
  y:=d+s;
  writeln( 'd = ',d:2:2,' s = ',s:2:2,' ----Y = ',y:2:2);
  x:=x+hx;
 end;
end.

[Аватар]

вообще-то x^n для x>1 очень быстро растет. А для x=4 вообще произведение степеней будет соизмеримо чуть ли не с 2^110 ))

[guardi]

Сообщение от Аватар

вообще-то x^n для x>1 очень быстро растет. А для x=4 вообще произведение степеней будет соизмеримо чуть ли не с 2^110 ))

Спасибо!