Вычислить значение выражения

program p5;
 
uses crt;
 
var n, f: integer;
y, x:real;
 
begin
clrscr;
 
  writeln('Введите x в промежутке [2;10]');
  read(x);
  if (x < 2) or (x > 10) then
    Writeln('Значение не входит в ОДЗ')
    else
    while (x <= 10) do
    begin
    begin
    f:= 1;
    while (n <= 20) do
    begin
    f := f * n;
    y := y + sqrt(power(power(x, n) + 1, 3) / f);
    n := n + 1;
    end;
    end;
    x := x + 0.5;
    end;
    writeln('Ответ: ',y);
readkey;
end.

program p5;
uses crt;
var
  n, f: integer;
  y, x: real;
begin
  clrscr;
  write('diapazon [2;10]');readln(x);
  if (x < 2) or (x > 10) then
    Writeln('out range :)')
  else
    while (x <= 10) do
    begin
        f := 1;
        while (n <= 20) do
        begin
          f := f * n;
          try
            y := y + sqrt(power(power(x, n) + 1, 3) / f);
          except
            on EZeroDivide:EMathError do writeln('Zero divide x=',x,' n=',n,' f=',f);
          end;
          n := n + 1;
      end;
      writeln('Step x=',x,' n=',n,' f=',f);
      x := x + 0.5;
    end;
  writeln('result: ', y);
  readkey;
end.

uses crt;
const a=2;
      b=10;
      h=0.5;
var n:integer;
    x,s,f,y:real;
begin
x:=a;
while x<=b do
 begin
  y:=0;
  s:=1;
  f:=1;
  for n:=1 to 20 do
   begin
    s:=s*x;
    f:=f/n;
    y:=y+sqrt(power(s+1,3)*f);
   end;
  writeln('x=',x:4:1,' y=',y:6:3);
  x:=x+h;
 end;
end.