Написать программу табулирования сложной функции

program FF;
 
uses crt;
 
//объявление переменной
var x: real;
 
//функция
function y(var x: real): real;
 
//объявление локальных переменных
var n: integer; //счётчик
    xn: real; //x^n
 
begin
  result := 0.0;
  if (x > 0.1) and (x < 1.0)
    then
      begin
        xn := x;
        if x < 0.5
          then
            begin
              for n := 0 to 10 do
                begin
                  result := result + xn / (2 * n + 3);
                  xn := xn * x;
                end;
            end
          else
            begin
              for n := 1 to 7 do
                begin
                  result := result + (xn + xn * xn) / (8 * n + 1);
                  xn := xn * x;
                end;
              result := result * (x + 1.0) / 3.0;
            end;
      end;
end;
 
//главная программа, вызывающая функцию
begin
  write('x = ');
  readln(x);
  writeln('Y = ', y(x));
  readln; //ждём реакцию пользователя для закрытия программы
end.