Написать программу для вычисления значений указанной функции при изменении аргумента х в заданных пределах

const
  h: array[1..4] of real = (0.5, 1, 2, 3);
var
  a, b, x: real;
  n: integer;
begin
  write('Введите начало интервала: ');
  readln(a);
  write('Введите конец интервала: ');
  readln(b);
  if a > b then
    begin
      x := a;
      a := b;
      b := x
    end;
  writeln('Выберите шаг:');
  for n := 1 to 4 do writeln(n, ': h = ', h[n]:3:1);
  repeat
    write('Ваш выбор: ');
    readln(n);
    if not (n in [1..4]) then writeln('Неверный выбор, повторите ввод.');
  until n in [1..4];
  x := a;
  while x <= b do
    begin
      write('x = ', x, ',  y ');
      if (x > 0) and (x <> 20.5) then
        writeln('= ', sqrt(exp(4/5*ln(x))+exp((4-x)/5*ln(x)))+ln(abs(x-20.5)))
      else writeln('не определено');
      x := x + h[n]
    end;
  readln
end.

const
  h: array[1..4] of real = (0.5, 1, 2, 3);
var
  a, b, x: real;
  n, k: integer;
begin
  repeat
    write('Введите начало интервала: ');
    readln(a);
    write('Введите конец интервала: ');
    readln(b);
    if a > b then
      begin
        x := a;
        a := b;
        b := x
      end;
    writeln('Выберите шаг:');
    for n := 1 to 4 do writeln(n, ': h = ', h[n]:3:1);
    repeat
      write('Ваш выбор: ');
      readln(n);
      if not (n in [1..4]) then writeln('Неверный выбор, повторите ввод.');
    until n in [1..4];
    k := trunc((b - a) / h[n]) + 1;
    writeln('Количество точек k = ', k);
    if k < 20 then writeln('Количество точек менее 20, увеличьте интервал или уменьшите шаг')
    else
      if k > 30 then writeln('Количество точек больше 30, уменьшите интервал или увеличьте шаг')
  until k in [20..30];
  x := a;
  while x <= b do
    begin
      write('x = ', x, ',  y ');
      if (x > 0) and (x <> 20.5) then
        writeln('= ', sqrt(exp(4/5*ln(x))+exp((4-x)/5*ln(x)))+ln(abs(x-20.5)))
      else writeln('не определено');
      x := x + h[n]
    end;
  readln
end.

program FuncTabulPage;
Procedure Swap(var x, y : real); {Поменять местами}
var t : real;
begin
t := x;
x := y;
y := t;
end;
Procedure WaitEnter; {Ожидать нажатия <Enter>}
begin
Write('Press <Enter>…');
Readln;
end;
Function f(x:real):real; {Табулируемая функция}
begin
f := ( 2 - 2/3 + exp(ln(x/2.7)/3) - sqrt(exp(-3*x)))
* abs(sin(5*x));
end;
Var
x, xmax, d : real;
i, n
: word;
Begin {Главная программа}
Writeln('Табулирование функции');
Write('Начало = '); Readln(x);
Write('Конец '); Readln(xmax);
if x>xmax then Swap(x, xmax);
Write('Кол-во точек = Readln(n');
n:= n-1;
d := (xmax-x)/n; {Шаг изменения аргумента}
Writeln('---------------------------------');
Writeln('×',#9#9#9, 'y');
for i := 0 to n do begin
if ((i mod 24)=0)and(i<>0) then WaitEnter;
Writeln(x: 8:2,#9, f(x):12:3);
x := x + d;
end;
Writeln('======================');
WaitEnter;
End.

const
  h: array[1..4] of real = (0.5, 1, 2, 3);
var
  a, b, x: real;
  n: integer;
begin
  write('Введите начало интервала: ');
  readln(a);
  write('Введите конец интервала: ');
  readln(b);
  if a > b then
    begin
      x := a;
      a := b;
      b := x
    end;
  writeln('Выберите шаг:');
  for n := 1 to 4 do writeln(n, ': h = ', h[n]:3:1);
  repeat
    write('Ваш выбор: ');
    readln(n);
    if not (n in [1..4]) then writeln('Неверный выбор, повторите ввод.');
  until n in [1..4];
  x := a;
  writeln('x':7, 'y':15);
  while x <= b do
    begin
      write(x:15:8, '  ');
      if (x > 0) and (x <> 20.5) then
        writeln(sqrt(exp(4/5*ln(x))+exp((4-x)/5*ln(x)))+ln(abs(x-20.5)):15:10)
      else writeln('не определено':15);
      x := x + h[n]
    end;
  readln
end.

const
  h: array[1..4] of real = (0.5, 1, 2, 3);
  hor = '+----------------+----------------+';
var
  a, b, x: real;
  n: integer;
begin
  write('Введите начало интервала: ');
  readln(a);
  write('Введите конец интервала: ');
  readln(b);
  if a > b then
    begin
      x := a;
      a := b;
      b := x
    end;
  writeln('Выберите шаг:');
  for n := 1 to 4 do writeln(n, ': h = ', h[n]:3:1);
  repeat
    write('Ваш выбор: ');
    readln(n);
    if not (n in [1..4]) then writeln('Неверный выбор, повторите ввод.');
  until n in [1..4];
  x := a;
  writeln(hor);
  writeln('|        x       |        y       |');
  writeln(hor);
  while x <= b do
    begin
      write('|', x:15:8, ' |');
      if (x > 0) and (x <> 20.5) then
        writeln(sqrt(exp(4/5*ln(x))+exp((4-x)/5*ln(x)))+ln(abs(x-20.5)):15:10, ' |')
      else writeln('не определено':15, ' |');
      x := x + h[n]
    end;
  writeln(hor);
  readln
end.