Распечатать таблицу значений функции

program tabu;
 
var a, b, x, h: real;
    n, i: integer;
 
begin
  writeln('y = 1/(1+x)^5 tabulation.');
  repeat
    write('a = ');
    readln(a);
    write('b = ');
    readln(b);
    if a = b then writeln('Zero interval, repeat input.')
  until a <> b;
  if a > b then
    begin
      x := a;
      a := b;
      b := x
    end;
  repeat
    write('n = ');
    readln(n);
    if n < 2 then writeln('Error: n < 2, reenter.')
  until n >= 2;
  n := n - 1;
  h := (b - a) / n;
  for i := 0 to n do
    begin
      x := a + h * i;
      write('x = ', x:10:4, '    y = ');
      if x = -1 then writeln('<indeterminacy>')
                else writeln(1 / sqr(sqr(1 + x)) / (1 + x):18:12);
    end;
  readln
end.

program tabu;
 
var a, b, x, h: real; //начало и конец интервала, аргумент, шаг
    n, i: integer; //количество точек, счётчик
 
begin
  writeln('y = 1/(1+x)^5 tabulation.'); //печать сути задания, для красоты, можно убрать
  repeat //цикл для проверки ввода a и b
    write('a = '); //вводим a
    readln(a);
    write('b = '); //вводим b
    readln(b);
    if a = b then writeln('Zero interval, repeat input.') //если a = b, печатаем, 
                                                          //что интервал нулевой длины 
  until a <> b; //повторяем ввод a и b до тех пор, пока не будет a <> b
  if a > b then //если начальная граница больше, чем конечная,
    begin
      x := a; //меняем их местами, пусть интервал начинается с меньшей границы
      a := b;
      b := x
    end;
  repeat //цикл для проверки ввода n
    write('n = '); //вводим n
    readln(n);
    if n < 2 then writeln('Error: n < 2, reenter.') //считаем, что на интервале 
                                                    //не менее 2 точек
  until n >= 2; //если n >= 2, прекращаем цикл
  n := n - 1; //будем считать точки от нуля, для удобства
  h := (b - a) / n; //шаг табуляции
  for i := 0 to n do //цикл табуляции функции
    begin
      x := a + h * i; //текущее значение аргумента: 
                      //начало интервала плюс i шагов табуляции
      write('x = ', x:10:4, '    y = '); //печатаем значение аргумента
      if x = -1 then writeln('<indeterminacy>') //если x = -1 функция не определена,
                                                //печатаем, что не определена
                else writeln(1 / sqr(sqr(1 + x)) / (1 + x):18:12); //иначе вычисляем и
                                                                   //печатаем значение функции
    end; //конец цикла табуляции функции
  readln //ждём реакции пользователя для закрытия программы
end.