Разработать программу алгоритма цикла с параметром для решения задачи вычисления значений - Turbo Pascal

Формулировка задачи:

Разработать программу алгоритма цикла с параметром для решения задачи вычисления значений.

Решение задачи: «Разработать программу алгоритма цикла с параметром для решения задачи вычисления значений»

Листинг программы

function Pow(a: real; x: integer): real;
var i: integer;
    p: real;
begin
  p := a;
  for i := 2 to x do
    p := p * a;
  Pow := p;
end;
 
function ATan(x: real): real;
begin
  ATan := sin(x) / cos(x);
end;
 
function Lg(x: real): real;
begin
  Lg := ln(x) / ln(10);
end;
 
var x, a, b, c: integer;
    y: real;
begin
  writeln('a, b, c = '); //x будет меняться от b до c
  readln(a, b, c);
  for x := b to c do begin
    y := Pow(Pow(sin(exp(ln(x) * 1.5 * a)), 3) + Pow(ATan(exp(ln(ABS(x + exp(ln(a * x) * 0.5)))) * 0.5), 3), 4)
      / (ln(ABS(x) + exp(exp(ln(Pow(lg(Pow(0.5 * x * x, 2)  ), 3)  ) * 0.5)  )  ) + x * x  );
    writeln('X = ', x, '; Y = ', y);
  end;
end.

Объяснение кода листинга программы

Написаны три функции: Pow, ATan, Lg.
Функция Pow вычисляет значение числа a в степени x.
Функция ATan вычисляет значение арктангенса числа x.
Функция Lg вычисляет значение логарифма числа x по основанию 10.
В основной программе объявлены переменные a, b, c, x, y.
Введенный пользователем набор чисел a, b, c будет использоваться в цикле.
Цикл будет выполняться от b до c с шагом 1.
В каждой итерации цикла вычисляется значение функции y по формуле, использующей функции Pow, ATan, Lg.
Результат вычисления функции y выводится на экран вместе с значением переменной x.
Значения переменных a, b, c могут быть изменены в процессе выполнения программы.