Вычислить значение многочлена - Pascal

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

При заданных коэффициентах A₁, A₂, ..., A_N и заданном значении X вычислить значение многочлена A₁X+A₂X²+...+A_nXⁿ. Указание: использовать в цикле переменную, последовательные значения которой равны X, X², ..., Xⁿ.

Решение задачи: «Вычислить значение многочлена»

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

const
    EPS = 0.00001;
var
    x, xn, sum, an: Real;
    i, n: LongWord;
begin
    sum := 0;
    Write('x='); ReadLn(x);
    if (Abs(x) > EPS)
    then
    begin
        repeat
            Write('n(>0)='); ReadLn(n);
        until (n > 0);
        xn := 1; sum := 0;
        for i := 1 to n do
        begin
            Write('a[', i, ']='); ReadLn(an);
            xn := xn * x;
            sum := sum + xn * an;
        end;
    end;
    WriteLn('SUM=', sum:0:2);
end.

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

Константа EPS объявляется и инициализируется значением 0.00001.
Переменные x, xn, sum, an, i, n объявляются как вещественные и целые числа.
Присваивается начальное значение переменной sum - 0.
Выводится запрос на ввод значения переменной x.
Если абсолютное значение переменной x больше, чем EPS, то выполняется следующий блок инструкций. Иначе программа завершается.
Вводится значение переменной n до тех пор, пока оно не станет больше 0.
Инициализируется переменная xn значением 1, переменная sum сбрасывается на 0.
В цикле от 1 до n выполняются следующие действия:
- Вводится значение элемента многочлена an.
- Переменная xn умножается на значение x.
- К переменной sum прибавляется произведение xn и an.
Выводится текст SUM= и значение переменной sum с 2 знаками после запятой. Программа ожидает ввода значения x и целого положительного числа n. Затем выполняется вычисление значения многочлена с использованием введенных данных.