Дано целое положительное число n, вещественное число x. Найти значение многочлена вида - PascalABC.NET

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

Дано целое положительное число n, вещественное число x. Найти значение многочлена вида a_nxⁿ+a_n−1xⁿ⁻¹+...+a₁x¹+a₀, если коэффициенты многочлена вводятся последовательно с клавиатуры в следующем порядке: a_n,a_n−1,…,a_1,a₀. Указание: массивы не использовать.

Решение задачи: «Дано целое положительное число n, вещественное число x. Найти значение многочлена вида»

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

begin
  var(n,x,r):=(ReadInteger('n ='),ReadReal('x ='),0.0);
  Write('Коэффициенты a' + n + '...a0 через пробел: ');
  loop n+1 do r:=r*x+ReadReal;
  WriteLn('Результат = ', r);
end.

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

Входные данные: целое положительное число n, вещественное число x.
Создаются три переменные: n, x, r. Значение переменных n и x считываются из консоли, значение переменной r инициализируется нулем.
Выводится сообщение с коэффициентами многочлена вида a0, a1, ..., an через пробел.
Запускается цикл по числам от n до 0.
В каждой итерации значение переменной r умножается на x и к нему добавляется значение, считанное из консоли.
После завершения цикла выводится результат.